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INTRODUCTION 



The SDS Programmed Operator enables a programmer to code a subroutine call with a single in- 
struction, just as if the subroutine were an actual machine instruction. Other computers usually 
perform standard subroutine calls by executing a transfer to the starting location of the subroutine 
and, at the same time, preserving a return address. This procedure requires an operation code 
(indicating a transfer) and an operand address (indicating the starting address of the subroutine). 
If the subroutine should require an additional operand, as in a floating-point add subroutine, for 
example, the calling sequence must be longer to accommodate the specification of the operand. 

The SDS Programmed Operator (abbreviated POP) uses the operation code to indicate the transfer 
address. When the computer detects a "one" in bit position 2 of an instruction, bit positions 2 
through 8 are not interpreted as a normal instruction, but instead are treated as an address to 
which the computer transfers control. Thus, the operand address field is free to designate an ad- 
dress for use by the subroutine. There are 64 (decimal) locations [.(100)g through (177)g]to which 
a transfer may occur. These 64 locations constitute a linkage table; they normally contain appro- 
priate unconditional transfer instructions (BRU) to maintain the communication link betv/een the 
POP code and the subroutine being called by it. 

At the time the computer detects the POP code in the main program, four things happen. The ad- 
dress (contents of P register) at which the POP code occurs in the main program is stored in loca- 
tion 0. The indirect address bit (bit 9) is set in location 0. The contents of the overflow register 
are preserved in bit of location 0. Transfer is made to the location given by the POP code. 

For example, let location 01000 contain an instruction 010400200 and the overflow register be 
set (i.e., =1). As the program executes the instruction at 01000, location will be set to 
040041000, consisting of the address 01000; a one at bit 9 (indirect address); and a one in bit 
(contents of the overflow register). Transfer will then be made to location 0104, which should 
contain an unconditional branch to the POP subroutine. If a normal BRR is used to exit from 
the POP subroutine, return will be made to location 01001, and status of the overflow register 
will be re-established. 

By referencing location directly, the address of the location from which the transfer was made 
may be picked up. By referencing indirectly, the contents of the location from which transfer 
was made may be picked up. 

In the preceding illustration, for example, 

LDA 

would load the A register with the contents of (i.e., 40041000). By masking, the condition of 
the overflow may be determined, or address may be extracted. 

On the other hand, 

LDA *0 



would load the A register with the contents of 01000 (i.e., 010400200). By masking, address por- 
tion may be extracted for use by the POP subroutine. 

By judicious use of the programmed operator principle, a one-to-one correspondence may be 
maintained between SDS 920 instructions and SDS 910 instructions. For example, XMA is a 920 
machine instruction; its function may be simulated on the SDS 910 by a subroutine, and this sub- 
routine may be called by means of a programmed operator. Thus, the main program requires the 
same number of instructions for either the SDS 910 or 920. 

The following operations take place when the computer detects a programmed operator: 

1. (P)— *"(0)ir) ny save P register for return address 

2. 1— **(0L ; insert indirect address bit 

3. (O f )-»-(0) ; preserve status of overflow toggle 

4. (CL o~*"(P) ; branch to location indicated on POP code 
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SDS 920/930 PROGRAMMED OPERATOR EXAMPLE 



Effective 
Location Instruction Address 

MAIN PROGRAM - XMP is a POP Reference 
01342 14002163 XMP 02163 02163 

TRANSFER LOCATION (0140) - Assigned by Loader 
00140 00104000 

POP SUBROUTINE - Relocated by Loader at 04000 



01343 



Continue in main program 



Contents of 

Effective 

Address 



00000012 



04000 


03604005 


$XMP 


STB 


TEMPB 






04001 


06440000 




MUL 


*o 


02163 


00000012 


04002 


06700027 




LSH 


27 






04003 


07504005 




LDB 


TEMPB 


04005 


01234567 


04004 


05100000 




BRR 









04005 


00000000 


TEMPB 


PZE 






01234567 



Location 



O 



f A Register B Register 



Set 00000144 01234567 



400401342 Reset 



00000000 
00001750 
00001750 



00003720 
00000000 
01234567 



Set 



Explanation: XMP is a programmed operator that produces the integer prod- 
uct of the integer in the A register and the integer contained 
in the effective address. Overflow is set if the integer prod- 
uct exceeds the capacity of a single register. The contents of 
the B and X registers are unaffected by this "instruction". In 
this example, XMP is assigned POP transfer address 0140 and 
a BRU 4000 is set in location 040 by the Loader. 
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SDS 920/930 PROGRAMMED OPERATOR PACKAGE 



GENERAL 



This package contains a basic set of Programmed Operator routines for use with the SDS 920/ 
930 Computers. The package comes in two forms. The POP routines can be contained as a Pro- 
grammed Operator Library on the MONARCH System tape, and loaded by the MONARCH Loader. 
Or, they can be on paper tape or cards in Standard SDS Format and loaded by the Universal Binary 
Loader. 

POPs may be used only in programs assembled in SYMBOL or META-SYMBOL. Note that the 
POPs in this package may not be used with FORTRAN II, ALGOL, or REAL-TIME FORTRAN. 
(FORTRAN has its own set of Run-Time POPs. See FORTRAN II Operations Manual, SDS 
900046D.) 

HOW TO PROGRAM POPs 

Each POP is represented by mnemonic which may be written exactly as a machine language instruc- 
tion in coding a program. A typical sequence might be: 

LDA MANTIS+1 MANTISSA 
LDB MANTIS EXPONENT 

MULT FLM FLOATN SINGLE PRECISION FLOATING MULTIPLY 

After the execution of the FLM POP at location MULT, the A register would contain the mantissa, 
the B register the exponent, of the Single Precision Floating Point Multiply. Note that the POP 
will access the operand portion FLOATN during its execution, in this case to get the multiplier. 
Each POP Description contains explicit directions as to the use of the symbol or quantity in the 
operand field of the POP. 

Warning: Use only the mnemonic forms of these standard POPs; do not attempt to generate an oc- 
tal code which will induce a POP transfer at execution time. For example, 

EX FORM 9, 15 

EX 0105,01000 



Vor use of POPs with SYMBOL 4 or SYMBOL 8 Assemblers, or with HELP, see Programmed Oper- 
ators SDS 920 Manual, SDS 900020B. 
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would certainly generate a line of code of the form 010501000 at assembly time, but would be 
illegal for purposes of the load function. The reasons will become clear after the reader under- 
stands the sections explaining how the Assemblers and Loaders deal with POPs. If information in 
the A, B, and X registers is not to be used by the POP, it is saved and restored upon return to the 

main program. 

LOADING POPs 

A. MONARCH 

1. Use a ALOAD instruction to load the main program, subroutines, and POP subroutines 
you have written yourself. If any program is relocatable, a bias must be given. The 
POPs will then be loaded following the last relocatable program. If, however, all the 
program are absolute, a bias location at which the POPs may be loaded must be given. 

2. The Loader will search the MONARCH POP Library for unsatisifed POP references. 

3. If a GO or STOP directive is given in the ALOAD instruction, no symbol table will be 
typed before execution. 

If a TGO or TSTP directive is given in the ALOAD instruction, the symbol table con- 
taining all references (program and POP) is typed. Following each reference will be an 
octal quantity. If bit of this number is set, the reference is satisfied; if bit 1 is set, 
the reference is unsatisfied, and no linkages have been set up. 

4. Execute the program. 

B. UNIVERSAL BINARY LOADER 

1. Set a starting location in the A register for relocatable program to be loaded. The POPs 
will be loaded following the last relocatable program. If all programs to be loaded are 
absolute, set in the A register the address of a location where POPs may be loaded. 

2. Set breakpoints. Breakpoint settings described in Universal Binary Loader (Catalog Num- 
ber 000020) are to be closely followed if loading is to be successful. Setting Breakpoints 
1, 2, and 3 will ensure that the loader will halt after each program loaded. 

3. Load the Universal Binary Loader by standard fill. 

4. Load the main program and each subprogram. 

5. Mount the POP tape or deck. Clear the halt to load. 

6. If BPT 3 is set, the computer will halt with a BRU to the end transfer address in the C 
register. Halts may occur between (5) and (6). See Universal Binary Loader write-up 
for detailed explanation. 
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Errors: MISSING DEFS, together with a list of missing POP subroutines will be typed if all 
POP references in the programs are not satisfied. Note that the POP Library is the 
last tape/deck to be loaded. 

HOW THE ASSEMBLER TREATS POPs 

As the SYMBOL and META-SYMBOL Assemblers encounter mnemonics not recognized as standard 
machine mnemonics, Assembler directives, PROC calls, etc., they arbitrarily assign each a 
unique sequence number between 0100 and 0177 (for example, FLM, not a standard machine 
mnemonic, might be assigned sequence number 0105). Each time the same mnemonic is encoun- 
tered in one program during one assembly, it is assigned the same sequence number (i.e., each 
time FLM is encountered it would be assigned 0105). The Assembler flags each of these with an 
"I" as an illegal instruction mnemonic. It merely means that it was unable to find that mnemonic 
in its table of standard mnemonics. 

The octal representation of the generated code will contain the sequence number in bits 2-8. 

e.g., FLM 0201 
If FLM is given sequence number 0105, the following line of code would be generated: 

I 10500201 FLM 0201 

Note that the sequence number is not the number of the location to which transfer will be made 
during execution. A further transformation and reassignment is made during loading. (See the 
next section, "How the Loader Treats POPs".) 

When the object tape or deck is produced by the Assembler, each data block will contain informa- 
tion as to which instructions are POPs. (See MONARCH Reference Manual (SDS 900566), Sec- 
tion III, the MONARCH LOADER, for more explicit information.) 

HOW THE LOADER TREATS POPs 

As each program or subprogram is loaded, the names of POP references are gathered, together with 
their sequence number, into a table used by the Loader. As POPs are loaded from the POP tape or 
MONARCH Library, the name of each POP definition in the POP Library is compared with the 
entries in the POP reference table created by the Loader to see if that POP subroutine should be 
loaded. If so, the sequence number in each POP instruction in the programs loaded is replaced by 
the actual POP transfer code in all locations where the POP occurs; i.e., FLM might have been 
given sequence number 01 10 by the Assembler, but the loader might assign POP code 0124 to the 
FLM instruction. In this case, during execution, transfer would be made to location 0124 rather 
than to 01 10. Location 0124 would contain finally a BRU to the FLM POP subroutine. If the 
Loader is successful in satisfying all POP references, no error message occurs. If any POP refer- 
ences are still unsatisfied, an error message "MISSING DEFS" together with their names will be 
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typed. After all loading is complete, the Loader initializes by setting up BRUs to POP subroutines 
in appropriate locations 0100 to 0177. 

OTHER USE OF THE PROGRAMMED OPERATOR FACILITY 

Of the four directives (OPD, POPD, FORM and DATA) capable of generating octal code to cause 
POP transfer at execution time, only POPD does so in a way that enables the Loaders (MONARCH 
and UBL) to set up appropriate linkages at load time. Use of POPD is described in detail in the 
next section. 

OPD, FORM and DATA may be used to generate octal code which will cause POP transfer at exe- 
cution time with certain limitations. For instance, the following examples all generate the line 
of code 012300050 at assembly time. 



Example 1: 

INST FORM 9,15 

INST 0123,050 
Example 2: 

TRAP OPD 012300050 



Example 3: 



TRAP 



DATA 012300050 



The danger is that with these directives the Loader does not modify bits 2-8 during load time, and 
a conflict with existing POP references may occur. 

However, if care is exercised in selection of locations 0100-0177 that do not interfere with Loadei 
assignments, the POP mechanism may serve as a "trapping" facility. 

For example, since the Loader assigns from 0100 up, "trap" assignments could be made, numbered 
from 0177 down. 
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TRP1 OPD 017700000 



TRP1 ALPHA 

If the current value of ALPHA were 02050, the resulting instruction would be: 

017702050 TRP1 ALPHA 

At load time, the address could be modified for repeatability, but the bits 2-8 would not be 
changed. 

At execution time, a POP transfer would be made to location 0177. 

Note that the programmer would have to store a BRU to the "trap" subroutine in location 0177. 

WRITING POP SUBROUTINES - THE POPD DIRECTIVE 

If the user desires, he can write new subroutines to service any of the present POP mnemonics. 
To write a new subroutine for FLM, code the subroutine in the following manner: 

$FLM POPD 

LOCI STX TEMP FIRST LINE OF SUBROUTINE 

SUBROUTINE CODE 

BRR RETURN TO MAIN PROGRAM 

Note that it is not necessary to reserve the first location of the subroutine (i.e., LOCI) for there- 
turn address, since location is used for this purpose. It will be unnecessary to change any cod- 
ing in the main program, since FLM will cause a transfer to a POP location at execution time. 

The new POP subroutine may be assembled with or separately from the main program which calls it. 
If the new POP subroutine is loaded after the main program but before the POP Library, it satisfies 
the POP reference and the subroutine is not called from the POP Library. Note that the POP sub- 
routine is really a service subroutine, and may be coded using all the capability of SYMBOL and 
META-SYMBOL. 

Of course, the user can define any new mnemonics or redefine standard machine mnemonics (ex- 
cept Assembler directives such as LDA, MIN, SKG, etc.) since POPD directive overrides system 
mnemonics in both SYMBOL and META-SYMBOL. For instance, a user might desire to write a 
fast, 12-bit binary-to-decimal conversion. The mnemonic FBD could be used as a "POP" reference, 
and the subroutine coded $FBD POPD, etc. Or, if the user desired to cause TRTW to incorporate 
several tape tests, he could assign TRTW as $TRTW POPD and code a suitable subroutine incor- 
porating all the tests. 
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MODIFYING OR UPDATING THE PROGRAMMED OPERATOR LIBRARY 

The POP Library is available in three forms: (1) paper tape, (2) binary cards, and (3) part of 
MONARCH System tape. In all three cases, this library consists of a number of "Logical Files", 
each a complete program with one or more external entry points. (See Contents, page iii, for 
Logical File Number designations.) Each Logical File has been assembled as a separate subrou- 
tine, although it may contain more than one POP definition. For example, Logical File No. 21, 
SQR, is a separate subroutine with one entry point, SSQR; however, Logical File No. 16, CSD, 
SND, is a single subroutine with two entry points, SCSD and SSND. 

Note that program numbers do not necessarily correspond with Logical File numbers. For example, 
Cat. No. 203022-B consists of four separate subroutines: (1) DPN (Logical File No. 25); (2) DPD, 
DPM, DPS, DPA (Logical File No. 26); (3) LDP (Logical File No. 27); and (4) STD (Logical File 
No. 28). Also, a Section may contain writeups for more than one Logical File (e.g., Sections 
25, 26, and 27). 

All three forms (paper tape, card, MONARCH) of the POP Library follow the Logical File arrange- 
ment outlined on the Contents page. Each Logical File starts with a Type 2 (External Definition) 
record giving the POP definition and ends with a Type 3 (END) record. Each Logical File in the 
POP Library on the MONARCH tape is a A2 record under the Al LIBRARY label. 

The POP Library is generally modified for two reasons: (1) insertion and deletion of routines to 
create an augmented or abbreviated library; or (2) updating to replace current routines. The 
Logical Files have been numbered to facilitate these modifications on the paper tape version of 
the POP Library by means of Cat. No. 012014, SYMBOL Reproduce and Update. The card deck 
version may be altered by physically rearranging or editing, and the MONARCH System Tnpe 
must be modified by its own "UPDATE" Routine. 
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270/184 


Binary-Decimal, Fixed, Double 
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203014B 
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COS 


20301 8B 


18 


0.464-0.504 


40/32 


Cosine of A 


CSD 


203034B 


16 


3.59-3.86 


224/148 


Cosine, Fixed, Double 


CSF 


203028C 


17 


4.25-5.45 


331/217 


Cosine, Floating 


DBD 


203036B 


4 


6.096-6.448 


262/178 


Decimal-Binary, Fixed, Double 


DBF 


203038B 


6 


3.8-8.5 


251/169 


Decimal-Binary, Floating, Double 


DFS 


2030 15B 


5 


2.312 


64/52 


Decimal-Binary, Floating, Single 


DIB 


20301 3B 


8 


2.400-2.784 


123/83 


Decimal -Binary, Fixed, Single 


DPA 


203016B 


25 


0.160 


114/76 


Add, Fixed, Double 


DPD 


203022B 


25 


1.016-1.400 


1 14/76 


Divide, Fixed, Double 


DPM 


20304 0B 


25 


0.504 


114/76 


Multiply, Fixed, Double 


DPN 


203022B 


25 


0.072-0.104 


12/10 


Negate, Fixed, Double 


DPS 


203017B 


25 


0.160 


114/76 


Subtract, Fixed, Double 


DSQ 


203035B 


19 


1.112-1.320 


122/82 


Square Root, Fixed, Double 


EXF 


203025C 


12 


2.24-7.93 


237/159 


Exponential (2,e,10), Floating 
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203008B 


11 
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Exponential (2, e, 10) of A 


FFF 


2030 11C 


22 
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24 


0.656 
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24 
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23 
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23 
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23 
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20 
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FSS 


20301 OB 


23 


0.368-0.480 


174/124 


Subtract, Floating, Single 



f To extrapolate 930 times, multiply 920 times by a factor 1.75/8 = 0.219. 
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SQR 


20901 9B 


21 


0.384-0.576 


1 24/84 


Square Root of A 


STD 


203022B 


25 


0.160 


6/6 


Store, Double Precision 


STP 


203020B 


26 


0.216 


11/9 


Store, Triple Precision 


STQ 


20302 IB 


27 


0.256 


13/11 


Store, Guadruple Precision 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203037-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION; 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 

LANGUAGE: 



Binary to Decimal Conversion, Double, Fixed - BDD 
Richard S. Resnick, SDS 
17 April 1963 

Any SDS 920/930 Computer 

To convert a double precision fixed point binary number 
in A, B with the binary point location in the address 
field of BDD programmed operator, into thirteen 6-bit 
characters in A, B and extended register locations 2 
and 3, with sign, decimal point, and spacer character. 

Sixteen characters (four words) are necessary to 
represent the final converted decimal number completely 
formated for output. 

DPN, DPA, DPS, DPM, LDP, STD 

Instructions and constants: 270 oct, 184 dec 

Uses temporary storage locations 16 through 
22. 

Uses extended register locations 2 through 11. 

6. 304 to 8.800 m. s. 

SYMBOL 



USE: 



FUNCTION 

To convert a fixed point binary number in A, B with the 
binary point location in the address field of the BDD 
programmed operator into thirteen 6-bit BCD characters 
in A, B location 2 and location 3 with sign, decimal 
point, and spacer character. The final sixteen character 
decimal number with format symbols replaces the 
argument in A , B and locations 2 and 3 in the following 
manner: 
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USE: (cont. ) 



Table 1 





Range of 

Argument 


B 


A 


Location 
2 


Location 
3 


i * 13 


o «|a|< i 


SP± . X 


X X X X 


X X X X 


XXX X 


i = 12 


1 ^|A|< 1 


SP± X . 


X X X X 


X X X X 


XXX X 


i = 11 


io <|a|< io 2 


SP± X X 


.XXX 


X X X X 


X X X X 


i = 10 


10 2 £|A|< 10 3 


SP± X X 


X . X X 


X X X X 


x x x x; 


i = 9 


io 3 *|a|< io 4 


SP± X X 


X X . X 


X X X X 


X x x x| 


i = 8 


4.1 5 

io s\a\< 10 


SP± X X 


XXX. 


X X X X 


! 
XXX X 


i = 7 


io «|a|< io 


SP± X X 


X X X X 


.XXX 


X X X X 


i = 6 


io 6 .<|a|< io 7 


SP± X X 


X X X X 


X . X X 


X X X X 


i = 5 


IO 7 ^|A|< 10 8 


SP± X X 


X X X X 


J\ J\ , J\ 


X X X X 


i = 4 


8 Q 

io *?|a|< io 7 


SP± X X 


X X X X 


XXX. 


X X X X 


i = 3 


io 9 .<|a|< io 10 


SP± X X 


X X X X 


X X X X 


.XXX 


i = 2 


IO 10 <:[A|< If) 11 


SPi X X 


X X X X 


X X X X 


X . X X 


i = 1 


10 H «(A|< IO 12 


SP± X X 


X X X X 


X X X X 


X X . X 


i = 

m 


io 12 «|a|< io 13 


SP± X X 


X X X X 


X X X X 


XXX. 



ARGUMENT 

The argument is a double precision number in A , B with the 
binary point location in the 9 least significant bits of the 
programmed operator address. The Q (binary point 
location) can range from +87 to -87. If the Q exceeds this 
or if the absolute value of the argument is equal to or 
greater than 10l 3 at Q = 44, overflow will be set and the 
program will exit. When overflow occurs the original 
argument is lost. 

ACCURACY 



The output is accurate to thirteen decimal digits. 
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METHOD: The argument is normalized and made positive. If Q 

is less than or equal to zero, the argument is shifted 
right Q places and handled like an argument whose Q is 
zero. If Q is greater than zero, the argument is shifted 
right 44-Q places and tested for the interval in which it 
lies. The intervals are denoted by subscript i and are 
described in Table 1. 

A is then multiplied by 10 . This results in a 

number greater than 1 and less than 10. This is the 
first decimal digit. By successively extracting off the 
newly formed digit, and multiplying by 10, all thirteen 
digits are formed. The placing of the decimal point is 
a function of i. 



1-3 



oonoc 
ooooi 

00002 
00003 

0000 4 
000C5 
00006 
00007 
00010 

0001 i 
00012 
00013 
00014 
00015 
00016 
00017 
0002C 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 



37 
77 
35 
76 
35 
76 
67 
72 
05 
72 
01 
01 
41 



06624 



01 

76 
53 
76 
35 
76 
35 
76 
35 
46 
46 
46 
73 
73 
01 
54 
46 
35 
46 
76 
66 
06 
72 



00007 

40000 

00017 

00000 

00006 

00017 

10054 

00265 

00000 

00265 

00014 

00016 

00015 

001 

00010 

00147 

00017 

00146 

00016 

00173 

00022 

00145 

00110 

00200 

00500 

00200 

00156 

00266 

00055 

00156 

01000 

00005 

00400 

00011 

00000 

00175 

00265 



1 
2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
15 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



$RDD 



FIX 



ex 



POPD 


017000000 


srx 


Tx 


EAX 


*0 


STA 


UK1 


LDA 





STA 


EXIT 


LDA 


UK1 


NOD 


44 


SKA 


=040000000 


DPN 




SKA 


=040000000 


BRU 


FIX, 4 


BRU 


0K*4 


BRX 


$♦1*4 


DATA 


06624001 


STD 


AL 


LDA 


MINUS#4 


SKN 


UK1 


LDA 


PLUS, 4 


STA 


UKO 


LDA 


3U23*4 


STA 


COUNT 


LDA 


XMA,4 


STA 


L06P+2*4 


CXA 




RCH 


0500 


CXA 




SKG 


44023*4 


SKG 


= 


BRU 


N£GQ,4 


SUB 


44023*4 


ON A 




STA 


EXP 


CAX 




LDA 


AH 


RSH 


0*2 


DPS 


10E13*4 


SKA 


=040000000 



PuT G INTO X 



SAVE EXIT ADDS 



ARG EQU -1G0 
ARG OK 
INCREMENT G 



TEST ARG NEG 

INIT FIRST WORD 

INIT WORD COUNT 

UJRD COUNT ECU 4 

INIT STORE 

4 WORDS TO 

INSPECT 

EXPON OF A INTO X 



UORD 

BE STORED 



TEST Q GTR 44 



A EQU 44-Q 



SCALE ARG AT 44 





00045 


4 


01 


00047 


39 


BRU 


ARGQK,4 




00046 


4 


51 


00144 


40 


BRR 


9VFL9,4 




00047 


4 


71 


00153 


41 ARG9K LDX 


M27U23.4 


I 


00050 


7 


03 


00232 


42 


DPA 


9EX,6 




00051 


4 


41 


00052 


43 


BRX 


$+1*4 




00052 





72 


00265 


44 


SKA 


=040000000 




00053 


4 


41 


00050 


45 


BRX 


ARGQK+1,4 




00054 


4 


01 


00067 


46 


BRU 


SCALE, 4 




00055 





46 


01000 


47 NEGO CNA 






00056 


4 


73 


00156 


48 


SKG 


44G>23#4 




00057 





73 


00267 


49 


SKG 


= -1 




00060 


4 


51 


00144 


50 


BRR 


9VF|_9,4 




00061 





46 


00400 


51 


CAX 




I 


00062 


1 


00 


00010 


52 


LDP 


AL 




00063 


2 


66 


00000 


53 


RSH 


0*2 




00064 


2 


46 


00000 


54 


RCH 


0,2 


I 


00065 


1 


01 


00010 


55 


STD 


AL 




00066 





37 


00005 


56 


STX 


EXP 




00067 





46 


00200 


57 SCALE CXA 




X, 


00070 





66 


00001 


58 


RSH 


1 


Ul 


00071 


J 


46 


01000 


59 


CNA 






00072 





35 


00004 


60 


STA 


P9INT 




00073 





46 


00441 


61 


RCH 


0441 




00074 


6 


54 


00157 


62 


SUB 


RSH, 6 




00075 





63 


00005 


63 


ADM 


EXP 




00076 


u 


46 


00020 


64 


cex 




I 


00077 


1 


00 


00010 


65 


LDP 


AL 


I 


00100 


7 


04 


00263 


66 


BPM 


1QMX,6 




00101 





66 


40005 


67 


RSH 


*EXP 




00102 


4 


71 


00155 


68 


LDX 


M2G23#4 




00103 


4 


01 


00106 


69 


BRU 


L9PP*4 




00104 


4 


61 


001 10 


70 we*D MIN 


L99P+2#4 




00105 


4 


71 


00154 


71 


I.DX 


M4Q23,4 




00106 





36 


00010 


72 L99P STB 


AL 




001C7 





46 


00004 


73 


CAB 






00110 





62 


00016 


74 


XMA 


UKO 




00111 





60 


00004 


75 


SKR 


P9INT 




00112 


4 


01 


00121 


76 


BRU 


DIGIT, A 




00113 


4 


75 


00152 


77 


LDB 


D£CMAL,4 



FIND RANGE 9F ARG 



TEST -0 GTR 44 



SCALE AT 
CLEAR X 



A EQU -2E 
A EQU -E 
A EQU E 

CAX,CXB*CLA 
FdRM RIGHT SHIFT 



INIT 2 CHAR 



IMT 4 CHAR 



TlST FSK DECIMAL 
F9RM NEXT DIGIT 
FORM DECIMAL P9INT 





00114 





67 


20006 




00115 


4 


23 


00110 




00116 





36 


00004 




00117 





75 


00010 




00120 


4 


01 


00134 




00121 





67 


20006 




00122 


4 


23 


001 10 




00123 





75 


00010 




00124 


4 


14 


00150 




00125 


U 


35 


00011 




00126 





67 


00002 




00127 





46 


00014 




00130 





55 


00010 




00131 





46 


00014 




00132 





57 


00011 




00133 





67 


00001 




00134 


4 


41 


00106 




00135 





60 


00022 




00136 


4 


01 


00104 


1 


I 00137 


1 


00 


00020 


o 


I 00140 


1 


01 


00002 




I 00141 


1 


00 


00016 




00142 





71 


00007 




00143 


U 


51 


00006 




00144 


4 


51 


00141 




00145 





62 


00016 




00146 


00001212 




00147 


00001240 




00150 


00777777 




00151 


17777777 




00152 


33100000 




001 53 


77777745 




00154 


7777777 & 




00155 


77777776 




00156 


00000054 




00157 


77777777 




00160 


00000050 




00161 


00000044 




00162 


U000004 1 



78 

7 9 

80 

SI 

S2 

83 

34 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

9S 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

1 16 



DIGIT 



FLAGR 



0VFL9 

PLUS 

MINUS 

MASK 

XPASK 

DECMAL 

M27023 

M4Q23 

M2G23 

44Q23 

RSH 



ICY 

EXU 

ST3 

LCB 

BRU 

LCY 

EXU 

LCB 

ETR 

STA 

LSH 

XAB 

ADD 

XAB 

ADC 

LSH 

SRX 

SKR 

BRU 

LDP 

STD 

LDP 

LDX 

BRR 

BRR 

XMA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

TATA 



PACK DECIMAL P6INT 



L96p+?,4 

POINT 

AL 

FLAGR*4 

6 

L9CP+2*4 

AL 

MASK, 4 

AH 

2 

AL 

AH 

1 

L3PP,4 

C8UNT 

W9RD*4 

WK? 

2 

UKO 

TX 

EXIT 

$-3,4 

UKO 

01212 

01240 

0777777 

017777777 

033100000 

-27 

-4 

-2 

44 

-1 

40 

36 

71 



PACK NEW DIGIT 



START DP ADD 



NtU DIGIT 
CriAR C8UNT 
WORD CflUNT 



00163 


00000036 


117 


DATA 


30 


00164 


00000032 


118 


DATA 


26 


00165 


00000027 


119 


DATA 


23 


00166 


00000024 


120 


DATA 


20 


00167 


00000020 


121 


DATA 


16 


00170 


00000015 


122 


DATA 


13 


00171 


00000012 


123 


DATA 


10 


00172 


00000006 


124 


DATA 


6 


00173 


00000003 


125 3G23 DATA 


-* 

v 


00174 


oooooooo 


126 


DATA 





00175 


45200000 


127 10: 


:13 DATA 


04520C000 


00176 


22141163 


128 


DATA 


022141163 


00177 


33100000 


129 


DATA 


033100000 


00200 


20275716 


130 


DATA 


020275716 


00201 


34240000 


131 


DATA 


034240000 


00202 


01506141 


132 


DATA 


01506141 


00203 


26020000 


133 


DATA 


026020000 


00204 


00123643 


134 


DATA 


0123643 


00205 


42150000 


135 


DATA 


042150C00 


00206 


U0010303 


136 


DATA 


010303 


00207 


11644000 


137 


DATA 


011644000 


00210 


00000655 


138 


DATA 


0655 


00211 


72452000 


139 


DATA 


072452000 


00212 


00000052 


140 


DATA 


052 


00213 


22521000 


141 


DATA 


022521000 


00214 


00000004 


142 


DATA 


04 


00215 


33356400 


143 


DATA 


033356400 


00216 


oooooooo 


144 


DATA 


C 


00217 


02576200 


145 


DATA 


02576200 


00220 


oooooooo 


146 


DATA 





00221 


00214500 


147 


DATA 


0214500 


00222 


oooooooo 


148 


DATA 





00223 


00016040 


149 


DATA 


016040 


00224 


OOOOOOOO 


150 


DATA 





00225 


00001320 


151 


DATA 


01320 


00226 


OOOOOOOO 


152 


DATA 





00227 


00000110 


153 


DATA 


0110 


00230 


oooooooo 


154 


DATA 





00231 


U1133660 


155 


DATA 


01133660 



I 

00 



00232 
00233 
00?34 
00235 
00236 
00237 
0024Q 
0024 1 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 
00262 
00263 
00264 



00265 
00266 
00267 



21457146 
41362640 
2*772777 

31657400 
33371577 

5011554Q 
2\ 134057 

42141100 
25363073 

32571300 
32657712 
40553674 
20615736 

10706660 
24761326 
53070420 
32155613 
22743260 
20304467 
0753414Q 
24365605 
31463160 
31463146 
00000000 
20000000 
00000000 
24000000 
00000004 
00000005 
00000006 
00000007 

ooooooio 
uooooon 

00000016 
U0000Q17 

00000020 
00000021 
00000022 
40000000 
00000000 
77777777 



156 9 E X DATA 2 1 4 5 7 1 4 6 

157 DATA 041362640 

158 DATA 02577P777 

159 DATA 031657400 

160 DATA 033371577 

161 DATA 050115540 

162 DATA 021134057 

163 DATA 0421 411 OU 

164 DATA 025363073 

165 DATA 032571300 

166 DATA 032657712 

167 DATA 040553674 

168 DATA 020615736 

169 DATA 010706660 

170 DATA 024761326 

171 DATA 053070420 

172 DATA 032155613 

173 DATA 022743260 

174 DATA 020304467 

175 DATA 07534140 

176 DATA 024365605 

177 DATA 031463160 

178 DATA 031463146 

179 DATA 

180 DATA 020000000 
161 10MX DATA 

182 DATA 024000000 

183 P8INT EQU 04 

184 EXP ECU 05 

185 EXIT EQU 06 

186 TX EQU 07 
137 AL EQU 010 

188 AH EQU Oil 

189 UKQ EQU 016 

190 UK1 EQU 017 

191 WK2 EQU 020 

192 WK3 EQU 021 

193 COUNT EQU 022 

194 END 
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IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 

USE: 



Binary to Decimal Conversion, Single, Floating - BFS 
Richard S. Re snick, SDS 
15 January 1963 

Any SDS 920/930 Computer 

To convert a single precision floating point binary number 
with the mantissa in A and exponent in B to a formatted 
scientific notation six digit decimal number with decimal 
exponent into B, A and Location 2. The format symbols and 
digits are in BCD 6 bits per character form. 

Twelve characters (3 words) are necessary to represent 
the final converted number completely formatted for output. 



EXP 



Instructions plus constants: 113 oct, 75 dec 

Uses temporary storage locations 17 thru 21 and 
location 2. 

2.824 milliseconds. 

SYMBOL 
FUNCTION 

The final twelve character converted decimal number with 
format symbols replaces the argument in A, B in the following 
manner: 



± . X X 



X X X X 



± X X 



Location 2 



The address field is not used. 



2. ARGUMENT 



The argument is a single precision floating point number 
with Mantissa in A and exponent in B. On exit, the 6 bit 
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USE: (Cont. ) 



characters are in the designated registers in the following 
manner: 



A = 3rd, 4th, 5th and 6th digits of the mantissa. 

B = Sign, decimal point, 1st and 2nd digits of the 
mantissa. 

Location 2 = space, sign and 2 digits of the exponent. 

3. ERROR 

If the argument exceeds 10 in absolute value, overflow 

will be set and the result will be erroneous. 



METHOD: 



The exponent of the argument is converted to a decimal 
exponent by extracting the integer portion of the product 
Q log 2 =1 ± F. The fractional portion represents the noneu 
binary portion of the number that is converted by finding 10 
(expoential program). 

Multiplying the result times the mantissa completes the 
arithmetic part of the conversion. 

Extracting the actual decimal digits is done by multiplying 
by 10 and adding to from the polynomial: 



£ A. 10 
1 



-l 



The results are formatted as previously mentioned. The 
max error is 10"°. 
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N3 
I 
CO 



00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 

0004G 
00041 
00042 
00043 
00044 



37 
35 
76 
35 
46 
64 



35 

46 
U 66 

1 01 
46 
66 
64 

4 
4 
4 

U 46 
4 75 
4 
4 
4 



4 64 
75 
4 


67 
4 43 
36 
46 
4 71 
4 43 
46 
62 
4 65 



72 
01 
75 
01 



55 
72 
01 

36 
67 



01 
61 



00020 
00021 
00000 
00075 
00010 
00077 
00002 
10012 
20001 
00002 
00014 
20006 
00021 
00112 
00021 
00102 
00023 
01000 
00103 
00110 
00076 
00033 
00021 
20005 
00100 
00021 
00034 
00002 
20006 
000^4 
00017 
00002 
00106 
00064 
10012 
00Q02 
00101 



1 SEFS POPD 


017100000 


2 BF3 STX 


Tx 


3 


STA 


TM 


4 


LDA 





5 


STA 


EXIT, 4 


6 


CBA 


,2 


7 


MUL 


MC*4 


8 


STA 


TI 


9 


BAC 




10 


RCY 


1 


11 


EXP 


2 


12 


XAB 




13 


RCY 


6 


14 


MUL 


TM 


15 


SKA 


=040000000 


16 


BRU 


$ + 3,4 


17 


LDB 


ec*4 


18 


BRU 


$ + 3,4 


19 


CNA 




20 


LDB 


8C+1,4 


21 


ADD 


RCM,4 


22 


SKA 


EC*4 


23 


BRU 


$ + 6,4 


24 


STB 


TM 


25 


LCY 


5 


26 


MUL 


MC+1,4 


27 


LDB 


TM 


28 


BRU 


$ + 2,4 


29 


MIN 


TI 


30 


LCY 


6 


31 


6RM 


CBD,4 


32 


STB 


TB 


33 


CLB 


1 


34 


LDX 


XC*4 


35 


PRM 


C8D,4 


36 


BAC 




37 


XMA 


TI 


38 


DIV 


DC*4 



SAVE X 

SAVE SIGN OF MANT. 

SAVE THE EXIT 

CcA + CLX 
FORM I + F 
SAVE I 

SCALE F AT 
ENTER 10**F 

SCALE 10**F AT 5 
D = B*10**F 

YES 

NO 00 SP. INTO 8 

NEGATE A 

00-. INTO B 

ROUND 

TEST 1ST WORD ZERO 

NOT ZERO 

SAVE 8 

SET UP NEXT CHAR 

10 AT 5* 

RESTORE B 

DONT INCREMENT I 

INCREMENT I 

PUT 1ST CHAR INTO B 

ENTER BIN TO DEC 

B REGISTER RESULT 

-4 AT 23 4 CHAR 
ENTER BIN TO DEC 

A REGISTER RESULT 
100 AT 23 



1 



000^5 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00C71 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
001C1 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 




4 
4 
4 

4 
4 

4 
4 




4 




4 


4 
4 




72 
01 
75 
01 
46 
75 
55 
67 
71 
43 
46 
62 
75 
71 
51 
00 
36 
46 
66 
64 
75 
67 
41 
51 
00 



00112 
00051 
00104 
00053 
01000 
00105 
00111 
20001 
00107 
00064 
10012 
00002 
00017 
00020 
00075 
00000 
00021 
00002 
20001 
00100 
00021 
20006 
00065 
00064 
00000 



77000000 
11504Q47 
12000000 
U0000144 
00001233 
00004033 
00000505 
00000520 
7777777* 
77777776 
00000001 
00000010 
00000002 
0000002 I 
00000020 
00000017 



00112 40000000 



39 




SKA 


=040000000 


40 




BRU 


$ + 3,4 


41 




LEB 


9C+2,4 


42 




BRU 


$ + 3,4 


43 




CNA 




44 




LDB 


9C+3*4 


45 




ADD 


RCE, 4 


46 




LCY 


1 


47 




LDX 


XC+1,4 


48 




BRM 


CBD,4 


49 




BAC 




50 




XMA 


TI 


51 




LDB 


TB 


52 




LCX 


TX 


53 




BRR 


EXIT, 4 


54 


CFD 


PZE 




55 




STB 


TM 


56 




CLB 




57 




RCY 


1 


58 




MUL 


MC+1,4 


59 




LDB 


TM 


60 




LCY 


6 


61 




BRX 


$-6,4 


62 




BRR 


C3E,4 


63 


EXIT 


PZE 




64 


EC 


DATA 


077000000 


65 


MC 


DATA 


0H504047 


66 




DATA 


012000000 


67 


DC 


DATA 


0144 


68 


ec 


DATA 


01233 


69 




DATA 


04033 


70 




DATA 


0505 


71 




DATA 


0520 


72 


xc 


DATA 


077777774 


73 




DATA 


077777776 


74 


RCrt 


DATA 


01 


75 


RCE 


DATA 


010 


76 


TI 


EQU 


02 


77 


Tl* 


EQU 


021 


78 


TX 


EQU 


020 


79 


TE 


EQU 


017 


80 









YdS 

NO 00 SPSP INTO B 

NEGATE A 
OOSP- INT© B 
R9UND EXPONENT 
SCALE EXPON AT -1 
-2 AT 23 2 CHAR 
ENTER BIN TO DEC 

EXTENDED REG. RESULT 

RtSTORE X 

BIN T9 DEC CONVERT 
SAVE B 

SCALE RESULTS AT 

10 AT 4 DEC CHAR AT 5 

RESTORE B 

NEXT CHAR INTO B 

TEST FINISH 



EXT REG 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 2030 3 9-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 



Binary to Decimal Conversion, Double-Precision 
Floating Point - BDF 

W. LaSor, F. Valadez, SDS 

25 April 1963 



Any SDS 920/930 Computer 

To convert a double-precision floating point binary 
number to an 11 -digit BCD number formatted in 
scientific notation. 



DPM, DPN 

253 oct, 17 1 dec 

Uses temporary storage 16, 20, 21. 

(12.9 + .65 E) m. s. , where E = decimal exponent. 
SYMBOL 



USE: 



XN PUT 

The argument for the BDF program is a double- 
precision floating point number in the combined A, B 
registers as shown below: 



A 



B 



± 
— 



23 



14 15 



23 



Fraction 
(38 bits plus sign) 



Exponent 
(8 bits plus sign) 



OUTPUT 



The subroutine exits with the BCD number in A , B and 
memory locations 00002 and 00003 arranged as shown 
below: 



± . N N N N N N 
B X" 



NNNN N±EE 

^ ^ _>» k. . 



3-1 
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USE: (cont. ) 



Where N represents the digits of the mantissa and E 
represents the digits of the exponent. 



Example ; 

Upon exit from the subroutine, the number +. 12345678901 
with a decimal exponent of 1 5 would appear as follows: 






3. ACCURACY 



The maximum relative error (E ) observed is 10 
where. 

N - N 



-11 



E = 
r 



N 



METHOD: 



N = computed value 
N = true value 

The decimal exponent is initially set to 0. The binary 
exponent is extracted and its magnitude is tested. If 
the binary exponent is greater than 0, the fractional 
portion of the argument is divided by 10, the binary 
exponent adjusted, and the decimal exponent incremented 
by one. If the binary exponent is less than -3, the 
fraction is multiplied by 10, the binary exponent is 
adjusted, and the decimal exponent decremented by one. 
This process continues until the binary exponent lies 
within the range -3 ^: BE <: 0. 

The resulting fraction is first rounded, then converted 
to decimal by successive multiplications by 10 until 11 
digits have been generated. As each digit is generated, 
it is merged, along with the sign and decimal point, 
into the four -word output format. 



3-2 



CO 

I 

CO 



00000 
00001 
000C2 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 



4 37 
4 71 
4 37 
4 37 
4 71 
37 
71 
4 37 
46 
72 
4 01 
U 73 
71 



62 
76 
62 
43 
37 
35 



46 
35 



76 
35 
43 
76 
73 
73 
01 
46 
46 



76 

2 66 
35 
36 
5 01 
4 7? 
4 01 



00246 
00242 
00212 
00213 
00237 
00016 
00000 
00244 
00122 
00252 
00113 
00247 
00251 
00245 
00223 
00245 
00167 
00243 
00022 
00001 
00020 
00224 
00245 
00167 
00243 
00247 
00242 
00126 
01000 
00400 
00022 
00000 
00022 
00021 
00235 
00230 
00164 



1 $EDF POPD 


017000000 


2 BEF STX 


TX»4 


3 


LDX 


M4*4 


4 


STX 


X2*4 


5 


STX 


X3*4 


6 


LDX 


PTEN,4 


7 


STX 


COUNT 


8 


LDX 





9 


STX 


RET, 4 


10 


STE 




11 


SKA 


SIGN 


12 


BRU 


NEG,4 


13 


SKG 


ZERO 


14 


LDX 


ONE 


15 


XMA 


OUT, 4 


16 


LDA 


SPACE*4 


17 


XMA 


OUT, 4 


18 


BRM 


FORM, 4 


19 SET STX 


BE*4 


20 


STA 


ARG+l 


21 


CLA 




22 


STA 


DE 


23 


LDA 


POINT, 4 


24 


STA 


OUT, 4 


25 


BRM 


FORM, 4 


26 


LDA 


BE*4 


27 Leap SKG 


ZERO 


28 


SKG 


M4*4 


29 


BRU 


REDUCE, 4 


30 


CNA 




31 


CAX 




32 


LDA 


ARG+l 


33 


RSH 


0*2 


34 


STA 


ARG+l 


35 


STB 


ARG 


36 


DPM 


TEN, 4 


37 


SKA 


MASK?, 4 


38 


BRU 


LOAD, 4 



SET DIGIT COUNT 

SAVE RETURN 
EXTRACT EXPONENT 
TEST SIGN 



SET BE 



SET DE TO ZERO 



TEST FOR RANGE 



OuT OF range 

IN RANGE 



SCALE AT 

SAVE SCALED ARG 



TEST FOR LEADING ZERO 



CO 



00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 

00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 



67 
60 
20 
46 
4 55 
46 
57 
40 
4 01 



01 
35 
43 
14 
67 
60 
01 
76 
72 
01 
75 
36 
43 
46 
66 
65 
67 
35 
43 
36 
43 
76 
35 
76 
35 
76 
75 



4 71 
4 51 

66 



00005 
00020 
00000 
00014 
00225 
00014 
00247 
20001 
00160 
00235 
00245 
00167 
00227 
00005 
00016 
00056 
00020 
00252 
00153 
00223 
00245 
00167 
00002 
00027 
00237 
00022 
00245 
00167 
00245 
00167 
00222 
00003 
00221 
00002 
00220 
00217 
00246 
00244 
00001 



39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 
51 
52 
53 
54 
55 
56 
57 
53 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 



ROUND 



PR 



CONT 



NEG 



LSH 


5 


SKR 


DE 


Nep 




XAB 




ADD 


RNDF.4 


XAB 




ADC 


ZERO 


6VT 




BRU 


FIX, 4 


DPM 


TEN, 4 


STA 


OUT, 4 


BRM 


FORM, 4 


ETR 


MASK1,4 


LSH 


5 


SKR 


COUNT 


BRU 


PR-1,4 


LDA 


DE 


SKA 


SIGN 


BRU 


MINUS, 4 


LDB 


S°ACE,4 


STB 


OUT, 4 


BRM 


F3PM.4 


CLB 




RSH 


23 


DIV 


PTEN.4 


LSH 


13 


STA 


OUT, 4 


BRM 


FORM, 4 


STB 


OUT, 4 


BRM 


FORM, 4 


LDA 


TAB+3,4 


STA 


3 


LDA 


TAB+2,4 


STA 


2 


LDA 


TAB+l ,4 


LDB 


TAB, 4 


LCX 


TX*4 


BRR 


RET, 4 


RSH 


1 



FIX EXPONENT 



TEST ROUND OVFLO 



SKIP IF DQNE 
PROCESS EXPONENT 



SCALE AT 46 



SET GP WORD 



RESTORE INDEX AND EXI I 



CO 



00114 
00115 
001 16 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 

00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 



4 
4 
1 

4 



4 



4 
4 
4 

4 
4 


c 

5 




4 
4 




5 
u 



4 



4 
4 


4 



4 
U 



41 

37 
02 
71 
67 
62 
76 
62 
43 
01 
72 
CI 
54 
46 
76 
CI 
67 
35 
46 
61 
CI 
54 
60 
20 
46 
76 
01 
67 
35 
46 
01 
75 
36 
43 
46 
01 
61 
76 
46 



00115 
00243 
00000 
00243 
10002 
00245 
00252 
00245 
00167 
00021 
00252 
00t4l 
00232 
00400 
00022 
00240 
10001 
00022 
00200 
00020 
00031 
00242 
00020 
00000 
00400 
00022 
00233 
10001 
00022 
0020C 
00031 
00252 
00245 
00167 
01000 
00073 
00020 
00231 
0CC02 



78 


BRX 


79 


STX 


60 


DPN 


81 


LDX 


82 


NOD 


83 


XMA 


84 


IDA 


85 


XMA 


86 


BUM 


37 


9RU 


e& 


REDUCE SKA 


8 9 


BRU 


90 


SUB 


91 


CAX 


92 


LDA 


93 


DPM 


94 


N8D 


95 


STA 


96 


CXA 


97 


KIN 


98 


BRU 


99 


MLT SUB 


100 


SKP 


101 


N8P 


102 


CAX 


103 


LDA 


104 


DPM 


105 


NOD 


106 


STA 


107 


CXA 


108 


BRU 


109 


MINUS LDB 


110 


STB 


111 


BRM 


112 


CNA 


113 


BRU 


114 


FIX MIN 


1 15 


LDA 


1 16 


CLB 



$+1*4 


3E*4 


8E*4 


2 


8 U T , 4 


SIGN 


8UT,4 


FORM, 4 


SET, 4 


SIGN 


MLT, 4 


P3*4 


ARG+l 


TENTH, 4 


1 


ARG + 1 


DE 


L OOP, 4 


M4*4 


DE 


ARG + l 


P10,4 


1 


ARG + l 


LOOP, 4 


SIGN 


OUT, 4 


FORM, 4 


C3NT,4 


DE 


Pl*4 



CORRECT EXPONENT 



ADJUST EXPONENT 



CO 



00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00200 
00201 
00202 
00203 
002C4 
00205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 



01 
76 



U 75 
4 01 



00 

35 
36 



4 37 
4 75 
4 71 
76 
67 
35 
27 
71 
41 
61 
71 
37 
76 
75 
71 
51 
00 
00 
00 
00 
00 



00057 
00022 
00021 
00050 
00000 
00214 
00215 
00216 
00245 
00213 
00223 
00006 
00223 
00213 
00212 
00205 
00213 
002^2 
00212 
00214 
00215 
00216 
00167 

oocoo 

00000 
00000 
00000 

ooooo 



12000000 
33000000 
00001300 
77763500 
00777777 

77000000 
01000000 
00000003 
COOOOOOO 
24000000 



1 17 




BRU 


PR* 4 


113 


LOAD 


LEA 


A H G + 1 


1 19 




LDB 


ARG 


120 




BRU 


R 9 Li N D * 4 


121 


F6RK 


PZE 




122 




STA 


SAVEA, 4 


123 




STB 


S A V F £ , 4 


124 




STX 


S A V E X , 4 


125 




LDB 


5 U T , A 


126 




LDX 


X3*4 


127 




LCA 


T AB+4,6 


128 




LSH 


6 


129 




STA 


T A E + 4 , 6 


130 




STX 


X 3 * 4 


131 




LDX 


X2*4 


132 




BRX 


$ + 3,4 


133 




MIN 


X3*4 


134 




LDX 


M4,4 


135 




STX 


X2*4 


136 




LDA 


SAVEA, 4 


137 




LDB 


SAVEB, 4 


138 




LDX 


SAVEX, 4 


139 




BRR 


FQRM,4 


140 


X2 


PZE 




141 


X3 


PZE 




142 


SAVEA 


PZE 




143 


SAVES 


PZF 




144 


SAVEX 


PZE 




145 


TAB 


BSS 


4 


146 


SPACE 


DATA 


012000000 


147 


point 


DATA 


033000000 


148 


RNDF 


DATA 


01300 


149 


C6RR 


DATA 


077763500 


150 


MASKl 


DATA 


C777777 


151 


MASK 2 


DATA 


077000000 


152 


Pi 


DATA 


l*/<23-5) 


153 


P3 


DATA 


3 


154 


PlO 


DATA 


0*024000000 



Gtf ROUND 

SAVE REGISTERS 



INCREMENT WORD 



RESTORE REGISTERS 



00235 


oooooooo 


00236 


12000000 


00237 


00000012 


00240 


31463150 


00241 


31463146 


00242 


1777777* 


00243 


00 ooooo 


00244 


U 00 00000 


00245 


00 00000 


00246 


00 00000 




00000016 




00000020 




0000002! 


00247 


oooooooo 


00250 


77777777 


00251 


00000001 


00252 


40000000 


CO 




^ 





155 TEN 



DATA 



0,012000000 



156 


PTEN 


DATA 


10 


157 


TENTH 


DED 


.l*/(47+3) 


158 


M4 


DATA 


-4 


159 


BE 


PZE 




160 


RET 


PZE 




161 


OUT 


PZE 




162 


TX 


PZE 




163 


COUNT 


EGU 


016 


164 


DE 


ECU 


02C 


165 


ARQ 


EGU 


021 


166 


ZEK9 


DATA 





167 


©NES 


DATA 


-1 


168 


8NE 


DATA 


01 


169 


SI3N 


DATA 


040000000 


170 




END 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203036-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



Decimal to Binary Conversion, Double, Fixed - DBD 
Richard S. Re snick, SDS 
26 April 1963 

Any SDS 920/930 Computer 

To convert a thirteen digit decimal number with space, 
sign and decimal point from sixteen 6-bit BCD characters 
in A, B, Location 2 and Location 3 to a fixed point double 
precision binary number in A, B. 

DPN, DPM, DPA 

Instructions and constants: 262 oct, 178 dec 

Uses temporary storage locations 16 thru 22, and 
5 thru 11. 



TIMING: 

SOURCE 
LANGUAGE: 



6.096 to 6.448 milliseconds 



SYMBOL 



USE: 



FUNCTION 

To convert a thirteen digit decimal number with space, 
sign and decimal point from sixteen 6-bit BCD characters 
in A, B, Location 2 and Location 3 to a fixed point double 
precision binary number in A, B at a Q (binary point 
location) designated by the address field of the DBD 
programmed operator. 

ARGUMENT 

The argument is sixteen 6-bit BCD characters in A, B, 
Location 2 and Location 3. Thirteen of these characters 
are numbers, one character a space, one character a 
sign and one character a decimal point. The space is 
the first character and is followed by a sign and fourteen 
more characters of which one is a decimal point. The 
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USE: (cont. ) characters must be arranged in A, B, Location 2 and 

Location 3 in the following manner: 

Sp±XX xxxx xxxx xxxx 

B A 2 3 

The fourteen X's represent thirteen decimal digits and 
one decimal point. 

The address field of the DBD programmed operator 
determines the binary scaling of the resultant binary- 
number. 

3. ACCURACY 

The resultant binary number is accurate to 44 bits. 

4. ERROR 

Overflow is set when the converted argument is too 
large to fix at the desired Q. 

METHOD: The argument is converted to a double precision number 

by individually converting the contents of B, A, Location 
2 and Location 3 to fixed point single precision integers 
scaled at 23. A flag is set when the decimal occurs in 
one of the four words, then the converted word in B is 
multiplied by 10^ or 10 depending on whether the 
decimal point was in A, and then added to A. Similarly, 
the converted word in Location 2 is multiplied and added 

to the word in Location 3. The result of the B, A 

7 8 

calculation is then multiplied by 10 or 10 depending on 

the decimal in Location 2 or Location 3, and added to 

the Location 2, Location 3 calculation. The result is 

a double precision integer which is multiplied by 10" 1 

where i is the number of digits to the left of the decimal 

point. The resultant number is then scaled to the 

desired binary location by shifting. 
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I 

CO 



ooooo 
oooci 

00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
0002 3 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 



37 
71 

37 
35 
46 
35 
52 
76 
35 
43 
02 
35 
71 
43 
62 
67 
40 
01 
64 
01 
64 
63 
71 
43 
43 
35 
02 
71 
43 
75 
43 
46 
16 
35 
46 
62 
40 



00005 
00000 
00006 
00007 
00021 
00010 
00174 
00261 

00011 
00141 

20001 
00017 
00007 
00141 
00017 
00016 
20001 
00024 
00201 
00025 
00200 
00017 
00002 
00141 
00170 
00016 
20001 
00003 
00141 
00170 
00170 
00014 
00170 
00170 
00014 
00016 
20001 



1 
2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



$EBD 



PQPD 

STX 

LDX 

STX 

STA 

RCH 

STA 

S*B 

LDA 

STA 

BRM 

E9M 

STA 

LDX 

BRM 

XMA 

LSh 

SKS 

BRU 

MUL 

BRU 

MUL 

ADM 

LDX 

BRM 

BRM 

STA 

E8M 

LDX 

BRM 

LDB 

BRM 

XAB 

MRG 

STA 

XAB 

XMA 

SKS 



017100000 
TX 



EXIT 
UK1 
021 
DECMAL 
1Q6,4 

=040000000 
SIGN 
C3NVRT,4 

020001 

SUM+l 

UK1 

C9NVRT,4 

SUM+l 

14 
020001 

$ + 3,4 

10*314,4 

$ + c , 4 

1K014,4 

SUM + l 

2 

C9NVRT,4 
0,4 
SUM 
020001 
3 

C9NVRT,4 
Q,4 
0,4 

Q,4 
Q,4 

SUM 
020001 



CdX,CLA 
TEST NEG ARG 



C9NVERT 1ST U8RD 
TURN QFF 9VFL8 



CONVERT 2ND WORD 

TEST F8R DECIMAL 
1QK*U3RD1 

1K*W9RD1 

10K*WQRD1 + U8RD2 
W3RD 3 

CONVERT 3RD U9RD 
9VFL9 FLAG 

TURN 9FF 8VFL9 

W9RD4 

C9NVERT 4TH U9RD 

9VFL9 FLAG 



TtST F9R DFCIMAL 






00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
001 12 
001 1 3 



4 
4 
4 
4 

U 




u 



4 
4 
4 
4 
4 
1 

6 

4 





7 

4 


4 
1 







01 
64 
01 
64 
46 
55 
35 
46 
57 
62 
46 
67 
53 
01 
64 
01 
64 
01 
71 
71 
67 
37 
62 
46 
67 
46 
76 
02 
46 
14 
46 
53 
01 
03 
71 
77 
46 
46 



00050 
00203 
00051 
00202 
00014 
00016 
00016 
00014 
00262 
00017 
00002 
00003 
00170 
00065 
002C4 
00066 
00205 
00016 
00020 
00206 
10057 
00170 
00020 
00022 
00001 
00440 
00020 
00225 
00014 
00172 
00014 

00011 
00107 
00000 
00005 
40006 
00160 
00160 



«♦ Oti uu 1 4 1 



39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 



BRU 


$ + 3,4 


MUL 


10 K Q24,4 


BRU 


$ + 2,4 


MUL 


1KG24,4 


XAB 




ADD 


SUM 


STA 


SUM 


XAB 




ABC 


= 


XMA 


SUM+1 


CLB 




LSH 


3 


SKN 


Q,4 


BRU 


$ + 3,4 


MUL 


10M,4 


BRU 


$ + 2,4 


MUL 


100M,4 


DPA 


SUM 


LBX 


EXP 


LBX 


SCALE. 6 


N9D 


47 


STX 


0,4 


XMA 


EXP 


RCH 


022 


LSH 


1 


RCH 


0440 


LDA 


EXP 


DPM 


10*11*6 


XAB 




ETR 


MASK, 4 


XAB 




SKN 


SIGN 


BRU 


$ + 2,4 


BPN 




LDX 


TX 


EAX 


*EXIT 


XEE 




XEE 




STA 


C S N V R T , 4 



10K*W3RD3 
1K*U8RD3 



TcST FgR DECIMAL 

1QM*SUM+1 

100M*SUM+1 
100M*SUM+1 + SUM 

Q 8F 1 0**- 1 + 47 



CdX,CLB 
CAX,CXB 

77777770 

NEGATE 



00114 46 00200 78 CX.A 

00115 4 54 00170 79 SUB G,4 
00JJM6 4_ZXj1QJLAJ __^80 LDX C0NyRT,4 

-Ot*117 72 0002j5___^81 SKA 21 *^^^ J5 TEST NEG SCALING 

— ^OTTrO" — 4*nOT™lTdnr27 82 BRU LSH, 4 

00121 4 73 00175 83 SKG 47Q23.4 

00122 4 01 00124 34 RRU $+2,4 

00123 4 01 00133 85 BRU CLR, 4 

00124 46 00600 86 XXA 

00125 2 66 00000 87 RSH 0*2 

00126 4 Ot 00136 88 BRU LEAVE, 4 

00127 46 01000 89 LSH CNA 

00130 4 73 00175 90 SKG 47Q23,4 

00131 4 01 00134 91 BRU $+3,4 

00132 4 51 00140 92 BRR OVFL0,4 

00133 2 46 00003 93 CLR RCH 03,2 

00134 U 46 00600 94 XXA 

00135 2 67 00000 95 LSH 0,2 

00136 71 00005 96 LEAVE LDX TX 
f 00137 51 00006 97 BRR EXIT 



Oi 



00140 4 51 00135 98 0VFL0 BRR $-3,4 

00141 00 00000 99 CONVRT PIE DEC TO BIN CONVERSION 

00142 46 30003 100 CLR 

00143 4 76 00177 101 LDA 3Q23,4 

00144 35 00021 102 STA FLAG 

00145 36 00022 103 STB U«RD 

00146 46 00041 104 LOOP RCH 041 CXB,CLA 

00147 67 00006 105 LSH 6 

00150 46 00020 106 CSX 

00151 4 73 00176 107 SKG 9023,4 TEST A GTR 9 

00152 4 01 00157 108 BRU DIGIT, 4 

00153 76 00010 109 LDA DECMAL 

00154 35 00020 110 STA EXP 

00155 4 51 00156 111 BRR SET, 4 

00156 4 51 00163 112 SET BRR COUNT, 4 

00157 61 00010 113 DIGIT MIN DECMAL 

00160 62 00022 114 XHA U9RD 

00161 4 64 00173 115 MUL 10^4,4 

00162 67 00004 116 LSH 4 



^ 

i 



00163 
00164 
00165 
00166 
00167 
00170 
001 7! 
00172 
00173 
00174 
00175 
00176 
00177 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 



63 
60 
01 
76 
51 
00 
51 



00022 
00021 
00146 
00022 
00141 
00000 
00170 



77777770 
24000000 
C0400000 
00000057 
0000001 t 
00000003 
01750000 
23420000 
00000764 

00011610 
02304550 
27657Q20 
00000004 

00000010 
00000013 
U0000016 
00000022 
00000025 
00000030 
00000034 
00000037 
00000042 
00000046 
00000051 
00000054 
00000054 
00000060 
5022274Q 
34113411 
01133660 
21457146 
41 .7fi?64n 



117 COUNT ADM UQRD 

118 SKR FLAG 

119 BRU L(?6P*4 

120 LDA U9RD 

121 BRR C0NVRT,4 

122 Q PZE 

123 BRR G*4 

124 MASK DATA 077777770 

125 1CG4 DATA 024000000 

126 1C6 DATA 0400000 

127 47023 DATA 47 

128 9G23 DATA 9 

129 3G23 DATA 3 

130 1KQ14 DATA 1 Q00*/ ( 23-1 4 ) 

131 1CKQ14 DATA 1 0000*/ < 23-1 4 > 

132 1KQ24 DATA 1000*/ < 23-24 ) 

133 1CKQ24 DATA 1 0000*/ < 23-24 > 

134 10M DATA 02304550 

135 1C0M DATA 027657P20 

136 SCALE DATA 4 

137 DATA 8 

138 DATA 11 

139 DATA 14 

140 DATA 18 

141 DATA 21 

142 DATA 24 

143 DATA 28 

144 DATA 31 

145 DATA 34 

146 DATA 38 

147 DATA 41 

148 DATA 44 

149 DATA 44 

150 DATA 48 

151 lCfil DATA 050222740 

152 DATA 034H3411 

153 DATA 01133660 

154 DATA 021457146 

155 DATA n4136264Q 



SAVE QVFLO 
RETURN 



4^ 



00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 



00261 
00262 



25772777 
31657400 
33371577 
50115540 
21134057 
42141100 
25363073 
32571300 
32657712 
40553674 
20615736 
10706660 
24761326 
53070420 
32155613 
22743260 
20304467 
0753414G 
24365605 
31463160 
31463146 
00000000 
20000000 
00000005 
U0000006 
00000007 
00000010 
00000011 
00000016 
00000020 
00000021 
00000022 

40000000 
00000000 



156 




DATA 


025772777 


157 




DATA 


031657400 


158 




DATA 


033371577 


159 




DATA 


050115540 


160 




DATA 


021134057 


161 




DATA 


042141100 


162 




DATA 


025363073 


163 




DATA 


032571300 


164 




DATA 


032657712 


165 




DATA 


040553674 


166 




DATA 


020615736 


167 




DATA 


010706660 


168 




DATA 


024761326 


169 




DATA 


053070420 


170 




DATA 


032155613 


171 




DATA 


022743260 


172 




DATA 


020304467 


173 




DATA 


07534140 


174 




DATA 


024365605 


175 




DATA 


031463160 


176 




DATA 


031463146 


177 




DATA 





178 




DATA 


020000000 


179 


TX 


EGU 


05 


180 


EXIT 


EGU 


06 


181 


UK1 


EGU 


07 


182 


DECMAl 


ECU 


010 


183 


SIGN 


EGU 


Oil 


134 


SIM 


EQU 


016 


185 


EXP 


EGU 


020 


186 


FLAG 


EGU 


021 


137 


U6RD 


EGU 


022 


138 




END 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 20301 5-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 



Decimal to Binary Conversion, Single, Floating - DFS 
Richard S. Resnick, SDS 
16 January 1963 

Any SDS 920/930 Computer 

To convert a formatted scientific notation six digit decimal 

tig 

number with decimal exponent into a single precision 
floating point number with a binary mantissa in A and a 
binary exponent in B. 



EXP 

Instructions plus constants: 64 oct, 5 2 dec 

Uses temporary storage locations 16 thru 21 and 
location 2. 

2.312 milliseconds 



SYMBOL 



USE: 



FUNCTION 

The argument in A, B and Location 2 is replaced by a converted 
single precision floating point binary number with mantissa in 
A and Q or exponent in B. 

ARGUMENT 

The argument is a decimal number using scientific notation 
of the form ±. XXXXXX with exponent interpreted as 10 x in the 
form ±XX where X ranges from +77 to -77. Each character 
(symbol or digit) is in BCD form 6 bits per character arranged 
on entry in the following manner: 




V. 



X X X X 



A 




The symbols and digits are in BCD 6 bits per 
character (12 characters in all) in A and B and 
location 2. 

5-1 



Page 2 of 2 Catalog No. 20301 5 B 

USE: (Cont. ) B = Sign, decimal point, 1st and 2nd decimal digits. 

A = 3rd, 4th, 5th and 6th decimal digits. 

A and B refer to the decimal mantissa. 

Location 2 = Space, sign and 2 decimal digits. 

Location 2 refers to the decimal exponent. 

METHOD: The mantissa of the argument (Md) is converted to a binary 

fraction by the equation: 

5 . i 

Md = Z Di 10 



where the decimal number is ± D r D, D- D~ D, D rt . 

5 4 3 2 10 

The exponent is converted in a similar manner and a binary 
exponent (Q) formed by the equation: 

Q + F = X log 2 10 

where X = converted decimal exponent and F is the fractional 
portion of the converted binary exponent. The final binary- 
mantissa (Mb) is formed by the equation: 

Mb = Md 2 F 

The results are normalized and formed as previously 
mentioned. The max error is 2~20 # 



5-2 



I 

CO 











1 $CFS P9PD 


01710000U 


00000 





37 


00021 


2 DFS STX 


TX 


00001 





71 


ooooo 


3 


LEX 





00002 


4 


37 


00053 


4 


STX 


EXIT, 4 


000G3 





46 


00014 


5 


XAB 




00004 


u 


35 


00016 


6 


STA 


T3 


00005 


4 


14 


00054 


7 


ETR 


EC*4 


00006 


4 


71 


00057 


8 


LDX 


XC*4 


00007 


4 


01 


00012 


9 


BRU 


$ + 3,4 


00010 


U 


75 


00017 


10 


LD9 


T9 


00011 





67 


20006 


11 


LCY 


6 


00012 





35 


00020 


12 


STA 


TA 


00013 





36 


00017 


13 


STB 


TB 


00014 


4 


14 


00056 


14 


ETR 


EC+2,4 


00015 


4 


64 


00060 


15 


MUL 


MC*4 


00016 





55 


00020 


16 


ADD 


TA 


00017 


4 


41 


00010 


17 


BRX 


$-7,4 


00020 


4 


65 


00062 


13 


D1V 


DC*4 


00021 





53 


00016 


19 


SKN 


TS 


00022 


4 


01 


00024 


20 


BRU 


$ + 2,4 


00023 





46 


01000 


21 


CNA 




00024 


U 


62 


00002 


22 


XMA 


TI 


00025 


4 


55 


00063 


23 


ADD 


C8N,4 


00026 





35 


00020 


24 


STA 


TA 


00027 


4 


14 


00055 


25 


ETR 


EC+i,4 


00030 


4 


64 


00060 


26 


MUL 


MC*4 


00031 





55 


00020 


27 


ADD 


TA 


00032 


4 


14 


00054 


28 


ETR 


EC»4 


00033 





46 


00002 


29 


CLB 




00034 





40 


20001 


30 


SKS 


020001 


00035 





46 


01000 


31 


CNA 




00036 


u 


67 


20002 


32 


LCY 


2 


00037 


4 


64 


00061 


33 


MUL 


MC+1,4 


00040 


u 


46 


00412 


34 


RCH 


0412 


0004 1 





66 


200C1 


35 


RCY 


1 


00042 


1 


01 


00000 


36 


EXP 





00043 





66 


20002 


37 


»CY 


2 


00044 





46 


10012 


38 


BAC 





SAVE X 
SAVE EXIT 



SAVE SIGN 

EXTRACT QFF 2 CHAR 

-5 AT 23 

BEGIN DEC T6 BIN 



77777700 
"5A/6A AT 



10**6 AT 23 
TEST NEGATIVE 

NEGATE A 

Sf8RE A, INT INT© A 

EXTEND SIGN 6F INT 

SAVE RESULTS 

7700 

-54/64 AT 

7777 

TEST NEG EXP6N 



LOG 10 AT 2 

CAX + CBA + CLB 

ENTER 2**X 



Oi 



00045 


64 00002 


3<? 




MLL 


TI 


00046 


4 41 00047 


40 




BRX 


$+1*4 


00047 


67 10036 


41 




NQD 


30 


00050 


46 00040 


42 




CXB 




00051 


71 00021 


43 




LDX 


TX 


00052 


4 51 00053 


44 




9RR 


EXIT*4 


00053 


00 00000 


45 


EXIT 


PIE 




00054 


00007777 


46 


EC 


DATA 


07777 


00055 


00007700 


47 




DATA 


07700 


00056 


77777700 


48 




DATA 


077777700 


00057 


77777773 


49 


XC 


DATA 


C77777773 


00060 


45000000 


50 


MC 


DATA 


045000000 


00061 


32446474 


51 




DATA 


032446474 


00062 


03641100 


52 


DC 


DATA 


03641100 


00063 


25400000 


53 


C6N 


DATA 


025400000 




0000002! 


54 


TX 


EQU 


021 




00000020 


55 


TA 


EQU 


020 




00000017 


56 


TE 


EQU 


017 




00000016 


57 


TS 


EQU 


016 




00000002 


58 
59 


TI 


EUU 
END 


02 



INCREMENT X 
NORMALIZE RESULT 
RESTORE REGISTERS 
RESTORE X 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203038-B 



IDENTIFICATION: 



AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 

SOURCE 

LANGUAGE: 



Decimal to Binary Conversion, Double Precision 
Floating Point - DBF 

W. LaSor, F. Valadez, SDS 

26 April 1963 



Any SDS 920/930 Computer 

To convert a decimal number expressed in scientific 
notation to a double precision floating point number. 



DPM 

251 oct, 169 dec 
3.8 -8.5 milliseconds 

SYMBOL 



USE: 



I NPUT 

The argument is a BCD number consisting of sign, 
decimal point, 11 digits, and signed decimal exponent. 
The argument occupies the A and B registers and 
memory locations 00002 and 00003 as shown below: 



B 



+ . N N 



N N N N 



N N N N 



N + E E 



Frciction 



Exponent 



Where N represents the digits of the mantissa and E 
represents tie digits of the exponent. 

OUTPUT 

The subroutine exits with a double precision floating 
point number in the combined A, B registers as shown 
below: 



6-1 
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Catalog No. 203038 B 



USE: (cont. ) 



METHOD: 



B 



± 



23 



^ 



14 15 



23 



Fraction 
(38 bits plus sign) 



Exponent 
(8 bits plus sign) 



3. ACCURACY 



The maximum relative error (E ) observed is 10 
where: 



-11 



E = 
r 



N - N 



N 



N = computed value 
N = true value 



4. ERROR 



77 
If the absolute argument exceeds 10 , the overflow 

indicator will be turned on and the result will be set to 

0. 

The decimal fraction is formed as a double precision 
integer, then multiplied by 10"** to form a fraction. 

The decimal exponent is converted to binary and examined 
bit-by-bit. For each bit that is a one, the mantissa is 
multiplied by a power of 10 from a table of 2 



n 



All operations are performed on double precision 
normalized numbers with exponents maintained in a 
third word. Upon completion of processing, the final 
exponent is packed into the last 9 bits of the B register. 



6-2 



o 
I 

CO 



00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 

00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 



37 
71 

37 
46 
35 
43 
76 
66 
14 
43 
64 
35 
36 
76 
75 
67 
35 
43 
46 
43 
67 
55 



46 
4 57 



53 
01 
35 
36 
46 
54 
46 
56 
71 
67 
01 
67 
35 



00241 
00000 
00245 
00014 
00246 
00123 
00246 
00006 
00157 
00132 
00153 
00243 
00242 
00003 
00002 
20006 
00244 
00123 
30003 
00132 
00001 
00242 
00014 
00243 
00246 
00040 
00243 
00242 
30003 
00242 
00014 
00243 
00151 
10056 
00154 
10001 
00243 



1 
2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



$EBF 



PQPD 


017100000 


STX 


TX,4 


LDX 





STX 


EXIT, 4 


XAB 




STA 


SIGN, 4 


BRM 


SEP, 4 


LDA 


SIGN, 4 


RSH 


6 


ETR 


077,4 


BRM 


MUL, 4 


MUL 


100K,4 


STA 


SU'M+J ,4 


STB 


SUM, 4 


LDA 


3 


LDB 


2 


LCY 


6 


STA 


SE*4 


BRM 


SEP, 4 


CLR 




BRM 


MUL, 4 


LSH 


1 


ADD 


SUM, 4 


XAB 




ADC 


SUM+1,4 


SKN 


SIGN, 4 


BRU 


$ + 7,4 


STA 


SUM+1 ,4 


STB 


SUM, 4 


CLR 




SUB 


SUM, 4 


XAB 




sue 


SUM+1,4 


LDX 


D46,4 


NOD 


46 


DPM 


1QR.4 


NOD 


1 


STA 


SUM+1,4 



SAVE RETURN 



FORM HIGH-ORDER 
SIX DIGITS AT 46 



F3RM LOW-ORDER 
FIVE DIGITS AT 46 



FORM FINAL N 



IF N NEGATIVE, 
FORM COMPLEMENT 



NORMALIZE N 



1 



00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
001C6 
00107 
001 10 
001 11 
00112 



36 
46 
55 
35 
75 
67 
14 
64 
36 
76 
46 
14 
55 
71 
66 
52 
01 
77 
41 
76 
02 
73 
73 
01 
76 
75 
71 
46 
71 
51 
37 
62 
75 
53 
77 
77 
01 
71 



00242 
00200 
00156 
00232 
00244 
00014 
00157 
00150 
00234 
00003 
00002 
00157 
00234 
00146 
00001 
00250 
00103 
00002 
00063 
00232 
20001 
00152 
00144 
00141 
00243 
00242 
00232 
00140 
00241 
0C245 
00233 
00243 
00242 
00244 
00025 
00160 
00025 
00027 



39 
40 
41 
4 2 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 



EX 



TEST 



STB 
CXA 
ADD 
STA 
LDB 
LSH 
FTR 
MUL 
STB 
LDA 
CLB 
ETR 
ADD 
LDX 
RSH 
SKB 
BRU 
EAX 
BRX 
LDA 
ROV 
SKG 
SKG 
BRU 
LDA 
LDB 
LDX 
LDE 
LDX 
BRR 
STX 
XMA 
LDB 
SKN 
EAX 
EAX 
DPM 
LDX 



SUM,4 

R£XP,4 

EXP, 4 

SE*4 

12 

677,4 

10B24,4 

BLK,4 

3 

077,4 

BLK,4 

DM21, 4 

1 

MO 

TEST, 4 

2.2 

$-4,4 

E<P,4 

D255,4 
DM257,4 
ERR, 4 
SUM+1,4 

SUM, 4 
EXP,4 

TX*4 

EXIT, 4 

SAVEX,4 

SLM+1,4 

SUM, 4 

SE*4 

21*2 

T A B N , 6 

21*2 

23*2 

1 



CONVERT EXPONENT 



TEST EXP BITS 



TEST FOR RANGE 



GET RESULTS 



G£T EXPONLNT 



I 



00114 


4 


62 


00243 


78 




XMA 


SUM+1,4 


00115 





46 


00600 


79 




XXA 




00116 


4 


63 


00232 


80 




ADM 


EXP,4 


00117 


4 


76 


00233 


81 




LDA 


SAVEX,4 


00120 





46 


00600 


82 




XXA 




00121 


4 


36 


00242 


83 




STB 


SUM, 4 


00122 


4 


01 


00066 


84 




BRU 


EX+3*4 


00123 





00 


ooooo 


85 


SEP 


PZE 




00124 


4 


71 


00145 


86 




LDX 


DM5,4 


00125 


4 


14 


00157 


87 




ETR 


Q77,4 


00126 


6 


35 


00241 


88 




STA 


BLK+5#6 


00127 





67 


20006 


89 




LCY 


6 


00130 


4 


41 


00125 


90 




BRX 


$•3,4 


00131 


4 


51 


00123 


91 




BRR 


SEP, 4 


00132 





00 


00000 


92 


MIL 


PZE 




00133 


4 


71 


00145 


93 




LDX 


DM5,4 


00134 


4 


64 


00150 


94 




MUL 


1QB24,4 


00135 





46 


00014 


95 




XAB 




00136 


6 


55 


00241 


96 




ADD 


BLK+5*6 


00137 


4 


41 


00134 


97 




BRX 


$-3,4 


00140 


4 


51 


00132 


98 




BRR 


MUL,4 


00! 4 i 


4 


51 


00141 


99 


ERR 


BRR 


$,4 


00142 





46 


30003 


100 




CLR 




00143 


4 


01 


00101 


101 




BRU 


TEST-2,4 


00144 


77777377 


102 


DM257 


DATA 


-257 


00145 


77777773 


103 


DM5 


DATA 


-5 


00146 


77777753 


104 


DM21 


DATA 


-21 


00147 


00000027 


105 


D23 


DATA 


23 


00150 


00000005 


106 


10324 


DATA 


10*/(23-24) 


00151 


00000056 


107 


D46 


DATA 


46 


00152 


00000377 


108 


D255 


DATA 


255 


00153 


00303240 


109 


1C0K 


DATA 


100000 


00154 


41362634 


110 


1CR 


DATA 


041362634,025772777 


00155 


25772777 










00156 


77777734 


111 


REXP 


DATA 


077777734 


00157 


00000077 


112 


877 


DATA 


077 


00160 


31463146 


113 


TA3N 


DATA 


031463146,03146 J146 


00161 


31463146 










00162 


77777775 











SEPARATE CHARACTERS 



FORM PRODUCT 



SET e.F 



00163 


07534122 


00164 


24365605 


00165 


77777772 


00166 


53070415 


00167 


32155613 


00170 


77777763 


00171 


42141061 


00172 


25363073 


00173 


77777746 


00174 


27661050 


00175 


34645312 


00176 


77777713 


00177 


2552124Q 


00200 


31754217 


00201 


77777676 


00202 


04751236 


00203 


25037765 


002C4 


77777454 


00205 


oooooooo 


^ 00206 


24000000 


°* 00207 


00000004 


00210 


oooooooo 


00211 


31000000 


00212 


00000007 


00213 


oooooooo 


00214 


23420000 


00215 


00000016 


00216 


oooooooo 


00217 


27657020 


00220 


00000033 


00221 


67701000 


00222 


21606744 


00223 


00000066 


00224 


65014000 


00225 


23561326 


00226 


00000153 


00227 


51201000 


00230 


30236017 




00000325 



114 



115 



116 



117 



118 



119 



121 



122 



123 



124 



125 



126 



DATA 07534 122* 024 365o05* 077777 77 2 



DATA 0530704 15*032155613,07 77 7 7763 



DATA 042141061*025363073*07 7777746 



DATA 02766 1050*034 64 d3 12* 07 777 77 13 



DATA 025521240*031754217*0 7 777 7626 



DATA 04 751236*025037765*07 7777454 



120 TABP DATA 0.024000000*04 



DATA 0*031000000*07 



DATA 0*023420000*016 



DATA 0*027657020*033 



DATA 067701000*021606744,066 



DATA 065014000*023561326*0153 



DATA 051201000*030230017*0325 



I 



00232 


00 00000 


127 


EXP 


PZE 




00233 


00 00000 


128 


SAVEX 


PZE 




00234 




129 


BLK 


BSS 


5 


00241 


00 ooooo 


130 


TX 


PZE 




00242 




131 


SUM 


BSS 


2 


00244 


00 ooooo 


132 


SE 


PZE 




00245 


00 ooooo 


133 


EXIT 


PZE 




00246 


00 ooooo 


134 


SIGN 


PZE 




00247 


00000001 


135 


CI 


DATA 


1 


00250 


40000000 


136 
137 


MO 


DATA 
END 


040000000 



Page 1 of 2 



SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203012-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 

LANGUAGE: 

USE: 



Binary to Decimal Conversion, Single, Fixed - BID 
Richard S. Re snick, SDS 
9 April 1963 

Any SDS 920/930 Computer 

To convert a single precision fixed point binary number 
in A, with the binary point location in the address field 
of the BID programmed operator, into six 6-bit 
characters in A, B with sign and decimal point. 

Eight characters (two words) are necessary to represent 
the final converted decimal number completely formated 
for output. 

None 

Instructions and constants: 141 oct, 97 dec 

Uses temporary storage locations 12 through 15. 

1 . 904 to 2. 240 milliseconds 

SYMBOL 

FUNCTION 

To convert a fixed point binary number in A with the 
binary point location in the address field of the BID 
programmed operator into six 6-bit BCD characters 
in A, B with sign and decimal point. The final eight 
character decimal number with format symbols replaces 
the argument in A, B in the following manner: 

Range of Argument 



£ 


|a| 


< 


1 


± 


. 


X 


X 


X 


X 


X 


X 


1 < 


|A| 


< 


10 


± 


X 


. 


X 


X 


X 


X 


X 


10 ^ 


|A| 


< 


io 2 


± 


X 


X 


• 


X 


X 


X 


X 


2 
10 £ 


|A| 


< 


3 
10 


± 


X 


X 


X 


. 


X 


X 


X 


3 
10 ^ 


|a| 


< 


!0 4 


± 


X 


X 


X 


X 


. 


X 


X 


4 
10 ^ 


|a| 


< 


io 5 


± 


X 


X 


X 


X 


X 


9 


X 


io 5 ^ 


|A| 


< 


io 6 


± 


X 


X 


X 


X 


X 


X 
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Catalog No. 20301 2 B 



USE: (cont. ) 



2. ARGUMENT 



METHOD: 



The argument is a single precision number in A with the 
binary point location in the 9 least significant bits of the 
programmed operator address. The Q (binary point 
location) can range from +41 to -41. If the Q exceeds 
this or if the absolute value of the argument is equal to 
or greater than 10 at Q = 23, overflow will be set and 
the program will exit. When overflow occurs the original 
argument is lost. 

3. ACCURACY 

The output is accurate to six decimal digits, i.e., the 
least significant digit is within +_ 1. Truncation rather 
than rounding is performed. 

The argument is made positive and 2 3 is subtracted from 
Q. If the difference is positive, A is shifted left Q-23 
places. If the difference is negative, A is shifted right 
23 -Q places. This scales A at 23. A is then tested for 
the interval in which it lies. The intervals are denoted 
by subscript i and are: 



10 



A < 10 



i = 5 

i = 4 

i = 3 

i = 2 



4 5 

10 ^ A < 10 

3 A 4 

10 ^ A < 10 

2 A 3 

10 < A < 10 



10 <: A < 10' 



i = 1 



1 ^ A < 10 



= 







^ A 
-(i-1) 



< 



1 



A is then multiplied by 10 . This results in a number 

greater than 1 and less than 10. This is the first decimal 
digit. By successively extracting the newly formed 
digit, and multiplying by 10, all six digits are formed. 
The placing of the decimal point is a function of i. 
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VI 

I 

CO 



00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 



37 
77 
72 
01 
75 
01 
75 
46 
36 
46 
46 
46 
73 
73 
51 
54 
72 
01 
46 
67 
01 
46 
46 



2662 
72 



00044 



51 
73 
40 
51 
71 
73 
41 
23 
64 
46 
14 
63 



00015 
40000 
00140 
00006 
00136 
00010 
00137 
01000 
00012 
00040 
00122 
00204 
00121 
00120 
00057 
00122 
00140 
00025 
00412 
00000 
00030 
01000 
00412 
4000 
00140 
00057 
00110 
20001 
00057 
00117 
00120 
00036 
00110 
00134 
00014 
00135 
00012 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 



$EID 



P9PD 


017200000 


STX 


TX 


EAX 


*0 


SKA 


=040000000 


BRU 


$ + 3,4 


LDB 


PLUS, 4 


BRU 


$ + 3,4 


LDB 


MINUS, 4 


CNA 




STB 


UKB 


CXB 




STE 




RCH 


0204 


SKG 


86023,4 


SKG 


N41Q23*4 


BRR 


0VFL©*4 


SUB 


23023,4 


SKA 


=040000000 


BRU 


$ + 4,4 


RCH 


0412 


LSH 


0*2 


BRU 


$ + 4,4 


CNA 




RCH 


0412 


DATA 


026624000 


SKA 


=040000000 


BRR 


eVFL6,4 


SKG 


TENPX,4 


SKS 


020001 


BRR 


0VFL8,4 


LDX 


N7Q23#4 


SKG 


TENPX+8,6 


BRX 


$-1,4 


EXU 


LSH+7,6 


MUL 


TENMX+7,6 


XAB 




ETR 


MASK, 4 


ADM 


WKB 



PLUS SIGN 

MINUS SIGN 

INITIATE FORMAT W8RD 

INSPECT Q 

CAB,CXA 

TEST Q GTE 87 

TEST Q GTR -41 



CAX,BAC 



CAX,BAC 



TEST A GTE 10**6 



FIND RANGE OF Q 
TEST ARG GTE 10**X 

LEFT SHIFT 
A*10**-X 

SAVE 18 BITS 8F B 
STORE BITS INT6 UKB 



I 



00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
0006! 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 



46 00014 
4 75 00124 
4 43 00060 
36 00013 
4 75 00123 
4 43 00060 
76 00013 
46 00014 
71 00015 
51 00000 
4 51 00054 
00 00000 
36 00014 
75 00012 
4 41 00071 
46 00400 
4 76 0C134 
67 20006 
46 00600 
4 01 00076 
67 20006 
36 00012 
0662400! 
4 64 00133 
75 00012 
60 00014 
4 01 00063 
4 51 00060 
67 00002 
67 00005 
67 0001 i 
67 00014 
67 00017 
67 00023 
67 00027 
03641077 
00303237 
00023417 
00001747 



39 




XAB 




40 




LDB 


2G23#4 


41 




BRM 


C8NVRT,4 


42 




STB 


UKA 


43 




LDB 


3Q23*4 


44 




BRM 


C8NVRT,4 


45 




LDA 


UKA 


46 




XAB 




47 




LDX 


TX 


48 




BRR 





49 


OVFLO 


BRR 


$-3,4 


5C 


C6NVRT 


PZE 




51 




STB 


FLAG 


52 




LDB 


UKB 


53 


loop 


BRX 


DIGIT, 4 


54 




CAX 




55 




LDA 


POINT, 4 


56 




LCY 


6 


57 




XXA 




58 




BRU 


COUNT, 4 


59 


DIGIT 


LCY 


6 


60 




STB 


UKB 


61 




DATA 


06624001 


62 




MUL 


1 QG5# 4 


63 




LDB 


UKB 


64 


COUNT 


SKR 


FLAG 


65 




BRU 


LOOP, 4 


66 




BRR 


C0NVRT,4 


67 


LSH 


LSH 


2 


68 




LSH 


5 


69 




LSH 


9 


70 




LSH 


12 


71 




LSH 


15 


72 




LSH 


19 


73 




LSH 


23 


74 


TENPX 


DATA 


999999 


75 




DATA 


99999 


76 




DATA 


9999 


77 




DATA 


999 



FQRM FIRST 4 DIGITS 



FORM NEXT 4 DIGITS 



EXIT 

ERROR EXIT 
CONVERT BINARY TO 
DECIMAL AND FORMAT 

TEST FOR DECIMAL 
SAVE NEXT DIGIT 
DECIMAL POINT 

RESTORE NEXT DIGIT 



FORM NEXT DIGIT 
COUNT 4 DIGITS 



GTE 
GTE 
GTE 
GTE 
GTE 
GTE 
LESS 



10**5 
10**4 
10**3 
10**2 
10**1 
10**0 
THAN 






00114 


00000143 


00115 


00000011 


00116 


00000000 


00117 


77777771 


00120 


77777727 


00121 


00000126 


00122 


C0000027 


00123 


00000003 


00124 


00000002 


00125 


24761327 


00126 


32155615 


00127 


20304470 


00130 


24365610 


00131 


31463150 


00132 


20000000 


00133 


12000000 


00134 


33000400 


00135 


7777770Q 


00136 


00000012 


00137 


00000040 




00000012 




00000013 




00000014 




00000015 


00140 


40000000 



78 




DATA 


99 


79 




DATA 


9 


80 




DATA 





81 


N7Q23 


DATA 


-7 


82 


N41Q23 


DATA 


-41 


83 


86Q23 


DATA 


86 


84 


23Q23 


DATA 


23 


85 


3G23 


DATA 


3 


86 


2C23 


DATA. 


2 


87 


TENMX 


DATA 


02*761327 


88 




DATA 


032155615 


89 




DATA 


020304470 


90 




DATA 


024365610 


91 




DATA 


031463150 


92 




DATA 


020000000 


93 


1CQ5 


DATA 


012000000 


94 


P6INT 


DATA 


033000400 


95 


MASK 


DATA 


077777700 


96 


PLUS 


DATA 


012 


97 


MINUS 


DATA 


040 


98 


UKb 


ECU 


012 


99 


UKA 


EGU 


013 


100 


FLAG 


ECU 


014 


101 


TX 


EGU 


015 


102 




END 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 20301 3-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 



Decimal to Binary Conversion, Single, Fixed - DIB 
Richard S. Re snick, SDS 
24 April 1963 

Any SDS 920/930 Computer 

To convert a six digit decimal number with sign and 
decimal point from eight 6-bit BCD characters in A, B 
to a fixed point single precision binary number in A, B. 

None 

Instructions and constants: 123 oct, 83 dec 
Uses temporary storage locations 12 thru 21. 
2.400 to 2. 784 milliseconds 

SYMBOL 



USE: 



FUNCTION 

To convert a six digit decimal number with sign and 
decimal point from eight 6-bit BCD characters in A , B 
to a fixed point single precision binary number in A, B 
at a Q (binary point location) designated by the address 
field of the DIB programmed operator. 

ARGUMENT 

The argument is eight 6-bit BCD characters in A, B. 
Six of these characters are numbers, one character a 
sign and one character a decimal point. The sign is 
the first character followed by seven more characters 
of which one is a decimal point. The characters must 
be arranged in A , B in the following manner: 



± X X X 



B 



X X X X 



A 



The seven X's represent 6 decimal digits and one 
decimal point. 
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USE: (cont.) The address field of the DIB programmed operator 

determines the binary scaling of the resultant binary 

number. 

3. ACCURACY 



The resultant binary number is accurate to 24 bits. 

4. ERROR 

Overflow is set when the converted argument is too 
large to fit at the desired Q. 

METHOD: The argument is converted to a single precision integer 

scaled at 23 by successively multiplying by ten and 
adding. The integer is normalized and multiplied by 10 
where i is equal to the number of digits to the left of 
the decimal point. The resultant number is then scaled 
to the desired binary location by shifting. 
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00 

I 

CO 



00000 
000C1 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 



37 
35 
36 
46 



35 
35 



43 
71 
43 
71 
76 
64 
71 



67 
37 
71 
77 
46 
46 
46 



54 
72 
01 
73 
01 



46 
4 01 
46 

53 



01 

46 
66 
01 
46 
73 



00044 4 51 



00012 
00013 
00014 
00023 
00015 
00016 
00055 
00013 
00055 
00017 
00016 
00112 
00103 
10057 
00017 
00012 
40000 
00160 
00160 
00204 
00017 
00122 
00041 
00102 
00033 
30003 
00052 
00412 
00014 
00037 
01000 
00000 
00052 
01000 
00102 
00045 
00054 



1 
2 

3 
4 

5 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



$EIB 



NEGQ 



PQPD 


017300000 


STX 


TX 


STA 


UKA 


STB 


UKB 


RCH 


023 


STA 


COUNT 


STA 


SUM 


BRM 


C0NVRT,4 


LDX 


UKA 


BRM 


C0NVRT,4 


LDX 


EXP 


LDA 


SUM 


MUL 


1 M X , 6 


LDX 


SCALE, 6 


NOD 


47 


STX 


EXP 


LDX 


TX 


EAX 


*0 


RCH 


0160 


RCH 


0160 


RCH 


0204 


SUB 


EXP 


SKA 


=040000000 


BRU 


NEGQ, 4 


SKG 


47G23,4 


BRU 


$ + 3,4 


CLR 




BRU 


EXIT, 4 


RCH 


0412 


SKN 


UKB 


BRU 


$ + 2,4 


CNA 




RSH 


0,2 


BRU 


EXIT, 4 


CNA 




SKG 


47Q23,4 


BRU 


$ + 2,4 


BRR 


0VFL9,4 



SAVE SIGN 

CdX.CLR 

INIT. COUNT EOU 

IrtlT. SUM EOU 

CONVERT UKB 

CONVERT UKA 



SUM*10**-X 

X E9U SCALE 

X EQU SCALE + NQ 

EXP EQU SCALE + NQ 

X EQU 

EXTEND SIGN OF Q 
CAB, CXA 
Q-SCALE-NG 



CAX, 8AC 



00045 





46 


00412 


39 




RCH 


0412 


00046 





53 


00014 


40 




SKN 


UKB 


00047 


4 


01 


00051 


41 




9RU 


$♦2,4 


00050 





46 


01000 


42 




CNA 




00051 


2 


67 


00000 


43 




LSH 


0*2 


00052 





71 


00012 


44 


EXIT 


LDX 


TX 


00053 





51 


ooooo 


45 




BRR 





00054 


4 


51 


00051 


46 


0VFL6 


BRR 


$-3,4 


00055 





00 


OOOOO 


47 


C6NVRT 


PZE 




00056 


4 


76 


00100 


48 




LDA 


3Q23*4 


00057 





35 


00020 


49 




STA 


FLAG 


00060 





46 


00041 


50 


LGOP 


RCH 


041 


00061 





67 


00006 


51 




LSH 


6 


00062 


c 


46 


00022 


52 




RCH 


022 


00063 


4 


73 


00101 


53 




SKG 


9Q23,4 


00064 


4 


01 


0007C 


54 




BRU 


DIGIT, 4 


00065 





76 


00015 


55 




LDA 


COUNT 


00066 





35 


00017 


56 




STA 


EXP 


00067 


4 


01 


00075 


57 




BRU 


C3UNTR,4 


¥ 00070 





61 


00015 


58 


DIGIT 


MIN 


C9UNT 


"^ 00071 





62 


00016 


59 




XMA 


SUM 


00072 


4 


64 


00!21 


60 




MUL 


1QQ4,4 


00073 





67 


00004 


6! 




LSH 


4 


00074 


u 


63 


00016 


62 




ADM 


SUM 


00075 


u 


60 


00020 


63 


C6UNTR 


SKR 


FLAG 


00076 


4 


01 


00060 


64 




BRU 


L96P,4 


00077 


4 


51 


00055 


65 




BRR 


C9NVRT,4 


00100 


00000003 


66 


3C23 


DATA 


3 


00101 


00000011 


67 


9G23 


DATA 


9 


00102 


00000057 


68 


47Q23 


DATA 


47 


00103 


00000004 


69 


SCALE 


DATA 


4 


00104 


00000007 


7G 




DATA 


7 


00105 


00000012 


71 




DATA 


10 


00106 


00000016 


72 




DATA 


14 


00107 


00000021 


73 




DATA 


17 


00110 


00000024 


74 




DATA 


20 


00111 


00000030 


75 




DATA 


24 


00112 


20615737 


76 


1CMX 


DATA 


020615737 


00113 


24761327 


77 




DATA 


024761327 



CAX. 3AC 



CXB.CLA 

CdX,CLB 

TtST A GTR 9 



00114 


32155615 


78 




DATA 


032155615 


00115 


20304470 


79 




DATA 


020304470 


00116 


24365610 


80 




DATA 


024365610 


00117 


31463147 


81 




DATA 


031463147 


00120 


20000000 


82 




DATA 


020000000 


00121 


24000000 


83 


10Q4 


DATA 


024000000 




00000012 


84 


TX 


EQU 


012 




00000013 


85 


UK A 


EQU 


013 




00000014 


86 


UKB 


EQU 


014 




00000015 


87 


C6UNT 


EQU 


015 




00000016 


88 


SIM 


EQU 


016 




00000017 


89 


EXP 


EQU 


017 




00000020 


90 


FLAG 


EQU 


020 




00000021 


91 

92 


AH 


EQU 
END 


021 



00122 4Q000000 



oo 
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Catalog No. 203009-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 



SOURCE 
LANGUAGE: 



LOG (2, e, 10) of A - LOG 
W. S. LaSor, SDS 
14 February 1963 

Any 920/930 Computer 

To compute the logarithm (base 2, e, 10) of an argument in the 
A register. 

None 

Instructions and constants: 60 oct, 48 dec 

Uses temporary storage locations 10 thru 13. 

904 microseconds plus normalize time (4 microseconds 
per bit) 

SYMBOL 



USE: 



1. FUNCTION 

The logarithm (base 2, e, 10) of the contents of A replaces 
the contents of A, B. The address field is used to define 
the base as follows: 



ADDRESS 

00000 
00001 
00002 



BASE 

2 

e 

10 



Indexing and indirect addressing are permitted. 

2. ARGUMENT 

The argument is in the A register and the scaling of the 
argument is in the B register scaled at Q = 23. On exit, the 
result is in the A register scaled at Q = 5. 

3. ERROR ALARMS 

If the argument is less than or equal to zero, overflow is 
set and the subroutine exits with the registers unchanged. If 
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USE: (Cont. ) 



the binary scaling, after normalization takes place, is 
greater than 31 in absolute value, no alarm is given but 
erroneous results occur. 



METHOD: 



The argument is first tested and if greater than zero, is 
then normalized. This reduces the argument to the form: 



X . 2 



where 
and 



1/2 £ X < 1 

b = binary scaling 



The following approximation is used to compute log ? X: 



log 2 X = 



f c 2 k :i u 



2k- 1 



for 1/2 £ X < 1 



- 1/2 



where 
and 



X - /m 
U = xTTUT 



C = 2. 8853913 

C 3 = . 96147063 

C r = . 59897865 
5 



The result is scaled at Q = 5 and the binary scaling added in 
since: 



log. 



X • 2 



= b + log^X 



Finally, the answer is converted to the proper base by using 
the identity: 



log, u = log 9 U • log. 2 






,1 

* . . _-6 



_J 



The absolute error (log X - log X) does not exceed 10 
in magnitude. 
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1 SLOG POPD 


012200000 


00000 





73 


00057 


2 LOG SKG 


ZERe 


00001 


4 


51 


00045 


3 


BRR 


EXIT, 4 


00002 





37 


00014 


4 


STX 


TX 


00003 





46 


00022 


5 


RCH 


022 


00004 





67 


10026 


6 


NQD 


22 


00005 





46 


00600 


7 


XXA 




00006 


4 


64 


00047 


8 


MUL 


1Q6,4 


00007 





36 


00013 


9 


STB 


CHAR 


00010 





46 


00200 


10 


CXA 




00011 





66 


00001 


11 


RSH 


1 


00012 





46 


00004 


12 


CAB 




00013 


4 


55 


00046 


13 


ADD 


Kl*4 


00014 





35 


00012 


14 


STA 


TA 


00015 





46 


10012 


15 


BAC 




00016 


4 


54 


00046 


16 


SUB 


Kl*4 


00017 





65 


00012 


17 


DIV 


TA 


00020 





35 


00012 


18 


STA 


ARG 


f 00021 





64 


00012 


19 


MUL 


ARG 


co 00022 





35 


0001 5 


20 


STA 


ARGSQ 


00023 


4 


64 


00056 


21 


MUL 


C5*4 


00024 


4 


55 


00055 


22 


ADD 


C3*4 


00025 





64 


00015 


23 


MUL 


ARGSQ 


00026 





66 


00002 


24 


RSH 


2 


00027 


4 


55 


00054 


25 


ADD 


Cl*4 


00030 





64 


00012 


26 


MUL 


ARG 


00031 


4 


55 


00053 


27 


ADD 


C0#4 


00032 





71 


00014 


28 


LDX 


TX 


00033 





77 


40000 


29 


EAX 


*0 


00034 


6 


64 


00050 


30 


MUL 


BASE, 6 


00035 





62 


00013 


31 


XMA 


CHAR 


00036 


6 


64 


00050 


32 


MUL 


BASE, 6 


00037 





62 


00013 


33 


XMA 


CHAR 


00040 





46 


00002 


34 


CLB 




00041 





66 


00003 


35 


RSH 


3 


00042 


n 


54 


00013 


36 


SUB 


CHAR 


00043 





71 


00014 


37 


LDX 


TX 


00044 





51 


ooooo 


38 


BRR 






TEST F8R LEGAL ARG 

SET 8VFL8 

SAVE X REGISTER 

C8X + CLB 

BRING INTQ RANGE 

SCALE AT 5 IN B 
SAVE CHARACTERISTIC 



X+SQRT HALF 



X-SQRT HALF 

GET TRANSF. ARG AT 



EVAL PeLYN6MIAL 



SCALE AT 2 



GET BASE ADDRESS 
LOAD CHARACTERISTIC 

SCALE AT 5 
EXIT 



00045 4 00 00043 39 EXIT HLT $-2,4 

00046 13240475 40 Kl DATA 013240475 

00047 00400000 41 1C6 DATA l*/<23-6) 

00050 40000000 42 BASE DATA 040000000 

00051 51643364 43 DATA 051643364 

00052 &6273731 44 DATA 066273731 

00053 U4000000 45 CC DATA 04000000 

00054 5072534Q 46 CI DATA 050725340 

00055 4U67210 *~? 03 DATA 04H67210 

00056 54652253 48 C5 DATA 05*652253 

00000012 49 TA EQU 10 

00000013 50 OAR EGU 11 

00000014 51 TX EQU 12 
00000012 52 ARG EQU TA 

00000015 53 ARGSQ ECU 13 

00057 00000000 54 ZER6 DATA 

55 END 
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SDS 900 SERIES PROGRAM LIBRARY 

PROGRAM DESCRIPTION 

Catalog No. 203024-C 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 



SOURCE 
LANGUAGE: 



Logarithm, Floating - LGF 
W. S. LaSor, SDS 
17 January 1964 

Any SDS 920/930 Computer 

To compute the double precision floating point 
logarithm of a double precision floating point 
argument in the A, B registers. 

DPM 

Instructions and constants: 230 oct, 152 dec 
Base Z\ 3.08 - 5.6 milliseconds 

Base e, 10: 3.63 - 6.15 milliseconds 

SYMBOL 



USE: 



1. FUNCTION 

The floating point logarithm (base 2, e, 10) of the 
contents of the A, B registers replaces the contents 
of A, B. The address field is used to define the 
base as follows: 



ADDRESS 



00000 



00001 



00002 



BASE 



10 



Indexing and indirect addressing are permitted. 
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USE: (Cont. ) 



ARGUMENT 



METHOD: 



Both the argument and the result are in standard double 
precision floating point format (see Fixed Point Arithmetic- 
Double Precision description for explanation of format). 

ERROR ALARMS 



If the argument is less than or equal to zero, overflow is 
set and the subroutine exits with the registers unchanged,, 

The argument is first tested for magnitude and, if less than 
or equal to zero, overflow is set and the subroutine exits. 
Otherwise the exponent is extracted, floated, and saved as 
the characteristic for later use. The fraction, X, whose 
range is between 1/2 and 1, is then inspected to determine 
in which of 8 subintervals it falls and an appropriate 
multiplier is selected and the argument multiplied by this 
constant. At the same time, the logarithm, base 2, of 
this multiplier is accumulated in a sum which will be 
subtracted later. The intervals, together with the cor- 
responding multipliers and logarithms are listed below: 



Inte 


rval 


Multiplier (A ) 


L °e 2 A k 


. 5 


- . 5625 


1. 8 


. 84799690655494 


. 5625 


- . 625 


1. 62 


. 69599381310989 


. 525 


- . 6875 


1.47 


. 55581615506163 


. 6875 


- . 75 


1. 35 


. 43295940727610 


. 75 


- . 8125 


1. 24 


. 31034012061215 


. 8125 


- . 875 


1. 15 


. 20163386116965 


. 875 


- . 9375 


1. 08 


. 11103131238874 


. 9375 


- . 987 


1. 026 


. 03703073094497 



The constants have been chosen such that after three 
multiplications at most, the resulting argument will lie 
in the range: 

. 987 * X *> 1. 013 
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METHOD: (Cont. ) This logarithm is then computed by the approximation: 

log 2 0-x) = c x x + c 2 x 2 + c 3 x 3 + c 4 x 4 

where: 

C = 1.4426950408889 

C = -. 72134752044447 

C 3 = .48089834696298 

C A = -.36067376022224 
4 

and whose maximum error is 3 x 10 . The logarithm 
of the original argument is computed by: 

log 2 X = b + log 2 X - T lo g 2 A k 

where b is the floated exponent computed earlier. 

Finally, the answer is converted to the proper base by 
using the identity: 

log k X ■ (log 2 X) • (log k 2), k = e, 10 

For X not in the interval (0. 99, 1. 01), the relative error 
is defined as: 

log'x - logX 



log X 



and has not been observed to exceed 5x10 in magnitude, 

For values of X that fall in the interval stated above, the 

# 11 

absolute error (log X - log X) does not exceed 5 x 10 in 

magnitude. 
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Flow Diagram 

LOGARITHM, FLOATING - LGF 
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a 







if 



X>o 



SET 
0VEFZ.Fi.OUi 






i 




TLOAsT t SWE 

C-b) 



\5 ^ 




LOCATE 
V^ INTERVAL 



V 



VfeS 



y*\- X 



i 



i 



£4 Lofi^M^S 



Compute : 
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Vfcft 



BASE 2 ? 



kio 



comMert to 



RESTORE iMWc 
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o 



00000 





37 


00224 


00001 





71 


00000 


0000,? 





37 


00220 


00003 





73 


00225 


00H04 


4 


51 


00131 


00005 





46 


00122 


00006 


c 


35 


00216 


000C7 


C 


36 


00215 


00010 





4 6 


00202 


0001 I 





?7 


00026 


00f*H 2 





67 


10026 


00013 


4 


3 5 


00217 


000!^ 


4 


3 7 


00221 


00015 


u 


46 


30003 


00016 





35 


00223 


00017 


u 


36 


00222 


00020 





76 


00216 


0002 1 


4 


7 3 


00144 


00022 


u 


72 


00226 


00023 


4 


01 


00045 


00024 


u 


46 


0C002 


00025 





67 


20005 


00026 


L 


46 


00020 


00027 


6 


71 


00122 


00030 


c 


76 


00222 


00031 


<L 


54 


00002 


00032 


u 


35 


00222 


00033 


u 


76 


00223 


00C34 


£ 


56 


0C003 


0CC3 5 


U 


35 


Q0?23 


000 3 6 





76 


00216 


00C37 


u 


75 


00215 


0004Q 




01 


00000 


0004 1 


U 


67 


20001 


00042 


V? 


3 5 


00216 


00 n ^3 


u 


3 6 


00215 



00044 4 01 00021 



1 SLoF P3PD 


012200000 


2 LGr 


: STX 


TX 


3 


LUX 





4 


STX 


EXIT 


5 


SKG 


ZEP9 


6 


PRR 


ERSftR,4 


7 


STE 




£ 


s r a 


A R & + i 


9 


STB 


ARG 


10 


RCH 


3202 


t 1 


EAX 


22 


12 


N3D 


22 


13 


STA 


ChAR,4 


14 


STX 


S r* 1 P T , 4 


15 


CLR 




16 


STA 


SUM+1 


17 


STB 


SUM 


16 


I DA 


ARG + 1 


19 L80P SKG 


L W E R * 4 


20 


SKA 


SIGN 


21 


BRU 


EVAL,4 


22 


CLB 




23 


LCY 


5 


24 


C3X 




25 


LDX 


LIS] 1-8,6 


26 


LDA 


sum 


27 


SUB 


2,2 


28 


STA 


SUM 


29 


LDA 


SUM + l 


30 


sue 


3,2 


31 


STA 


SUM+l 


32 


IDA 


A R + 1 


3 3 


LDB 


ARG 


34 


CPH 


0,2 


35 


LCY 


1 


3 6 


STA 


ARG+l 


3 7 


STB 


A R G 


3d, 


BRU 


L9PP.4 



SAVE INDEX 
SAVE RETURN 

TtST FOR LEGAL ARG 

EaTR^CT EXPONENT 
SAVE ARG 

CXA + CLB 
FLOAT EXPONENT 

SAVE CHARACTERISTIC 
SAVE SHIFT COUNT 
PRESET CORRECTIVE SUM 



B-GIN REDUCTION 
TEST FOR RANGE 

IN RANGE 

Oul OF RANGE 

LtfCATE SU6INTERVAL 

GET- ACK 1 ADDRESS 
ACCUM LOG AlKJ 



FORM ARG*A|K) 
SCALE AT 



RETUR.M TO RANGE-TEST 



o 
I 

V! 



00045 
0004 6 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00 1 1 1 
00112 
00113 



17 
35 
75 
01 
46 
55 
46 
57 
01 
66 
46 
55 
46 
57 
01 
66 
46 
54 
46 
56 
01 
46 
55 
46 
57 
71 
66 
55 
40 
01 
67 
41 
'67 
71 
77 
46 
14 
50 
01 



00226 
00216 
00215 
00147 
00014 
00145 
00014 
00146 
00215 
00001 
00014 
00147 
00014 
00150 
00215 
00001 
00014 
00147 
00014 
00150 
00215 
00014 
00222 
00014 
00223 
00221 
00000 
00217 
20001 
00121 
10060 
00105 
00215 
00224 
40220 
00600 
00227 
00225 
00125 



39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 



FVAL 



N8RM 



E8R 


SIGN 


STA 


ARG+1 


LDB 


ARG 


DPM 


C4,4 


XAB 




ADD 


C3*4 


XAB 




ADC 


C3*l*4 


DPM 


ARG 


RSH 


1 


XAB 




ADD 


C2*4 


XAB 




ADC 


C2+l,4 


DPM 


ARG 


RSH 


1 


XAB 




SUB 


CI, 4 


XAB 




sue 


Cl+1,4 


EPM 


ARG 


XAB 




ADD 


SUM 


XAB 




ADC 


SUM+1 


LDX 


SHIFT, 4 


RSH 


0,2 


ADD 


CHAR, 4 


8VT 




BRU 


evFi_e,4 


N8D 


4 3 


BRX 


$+1,4 


STX 


ARG 


LDX 


TX 


EAX 


• EXIT 


XXA 




ETR 


ADDR 


SKE 


ZEP3 


BRU 


cnvrt »l 



FORM 1-ARG AT 
EVAL POLYNOMIAL 

C4*ARG AT -1 
ADD C3 AT -1 



SCALE AT 
ADD C2 AT 

SCALE AT 1 
ADD Cl AT 1 



LOG BASE 2 AT 1 
ADD CORRECTIVE SUM 



SCALE RESULT 

ADD CHARACTERISTIC 

TEST OVERFLOU 

GO CORRECT 

FORM NEU EXPONENT 
SAVE NEW EXPONENT 
RECALL INDEX 
GET BASE ADDRESS 



TcST FOR BASE 2 
CHANGE BASE 



00 

00 

CO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00: 

00 

00 

00 

00 

00 

00 

CO 

00 

00 

00 

00 

00 

CO 

00 

00 



14 

15 

16 
1 7 

20 

21 

22 

23 

24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
41 
42 
4 3 
44 
45 
46 
47 
50 
51 
52 
53 
54 
55 
56 
57 
60 

6.1 
62 



46 
71 
46 
71 
51 
66 
17 
41 
01 
46 
01 
71 
67 
01 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
37453 
34 1 64 
366 1c 
32651 
=>0725 
14631 
34631 
64227 
15442 
36560 
31727 
50460 
13105 
70243 
£74i2 



oo*oc 

002t5 
00140 
00224 
00220 
00001 
00226 
00103 
00103 
00600 
40141 

00215 
10002 
001 16 
00151 
00155 
00161 
00165 
00171 
00175 
00201 
00205 
0021 1 
C0213 
004 

010 
047 
004 
342 
464 
463 
554 
624 
504 
024 
640 
451 
654 
17? 



7? 
79 
80 
51 

82 

83 
64 
ft c ; 

86 

87 

68 

69 

90 

91 

92 

93 

94 

95 

96 

97 

9 8 

99 

IOC 

101 

102 

103 



9LT 

8VFL8 



CKVRT 



ERROR 
L I 3 T 1 



LIST2 

L8WER 



104 C4 

105 A I 1 I 
106 

107 A I 2 I 

108 

10 9 A I 3 I 



XX A 

LEX 

LLE 

LDX 

BRP 

RSH 

E8R 

SRX 

BRU 

XXA 

DPM 

LCX 

N3D 

BRU 

HLT 

HLT 

KLT 

HLT 

HLT 

l-LT 

mLT 

t-LT 

HLT 

HLT 

EAT A 

DED 

DED 

DED 

DED 
DED 
DED 
DED 



A KG 

TX 
EXIT 

1 

SIGN 

N 8 R M , 4 
N 3 R M , 4 

*LlST2-!*6 

ARG 

2 

8ljT-2*4 
All 1,4 
A1?I .4 
AI3I,4 
A I 4 J , 4 
A I 5 I ,4 
A 16 I ,4 
A I 7 I , 4 
A I 8 I , 4 
BASEE#4 
BASE10,4 
03745 3C 04 



L.3AD AND PACK Exp 

RESTORE X 

RESCALE 
CHANGE SIGN 
INCREMENT EXPONENT 



Change Te base < 

LOAD EXPONENT 

PACK EXP&N, EXIT 
MULTIPLIER ADDPESStb 



BASE CHANGE ADDRESSES 



.987*/ (23-r ) 



,48Q69P3 4696 3*/v47+l ) 
-.36067 3/60222?*/ ( 47+ 1 ) 
1 .6*/(47»l > 
.84799^90655*/<47-l ) 
1 .62*/(47-l > 
.6559938 1 31 1 */ < 47-1 ) 
1 . 4 7 * / ( 4 7 - 1 ) 



o 
I 



00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00217 
00220 
00221 
00222 
00224 
00225 
00226 
00227 



73022372 
10711175 
31463144 
25463146 
27727703 
06732633 
75341216 
23656050 
63625231 
04756234 

46314630 
22314631 
55357525 
03163621 
24365604 
21217270 
04761246 
01615443 
71666210 
20324773 
11113304 
00457266 
76764340 
26134413 
50237360 
U504046 



00000000 
40000000 
00037777 
00000147 
00000147 



110 DED 

111 AMI DED 

112 DED 

113 AI5I DED 

114 DED 

115 AI6I DED 

116 DED 

117 AI7I DED 

118 DED 

119 A 181 DED 

120 DED 

121 BASEE DED 

122 BASEin DED 



. 55581615 50616*/<47-l ) 
1.35*/(47-l ) 
.4329594072761*/ (47-1 I 
1 ,24*/(47-l ) 
.3l03401206121*/<47-l ) 
1.15*/(47-l ) 
.2016338611696*/ (47-1) 
1.08*/(47-l ) 
.U 10313123887*/(47-l ) 
1 .026-/(47-1 ) 
.037030730945*/U7-1 > 
.693147i8056*/(47-Q> 
.301029995664*/ (47-0) 



123 


ARb 


BSS 


2 


124 


CHAR 


BSS 


1 


125 


EXIT 


BSS 


1 


126 


SHIFT 


BSS 


1 


127 


SIM 


BSS 


2 


128 


TX 


BSS 


1 


129 


ZE*e 


DATA 





130 


SIGN 


DATA 


040000000 


131 


AEDR 


DATA 


037777 


132 


CI 


EQU 


C4 


133 


C2 


EQU 


C4 


134 




END 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203008-B 



Exponential (2, e, 10) of A - EXP 
W. S. LaSor, SDS 
5 March 1963 

Any 920/930 Computer 

To compute the exponential (base 2, e, or 10) of an 
argument in the A register. 

None 

Instructions and constants: 76 oct, 62 dec 

Uses temporary storage locations 10 through 12. 

824 microseconds plus scaling ti,me 

SYMBOL 

FUNCTION 

The exponential (base 2, e, or 10) of the contents of A 
replaces the contents of A, B. The address field is used to 
define the base as follows: 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATOR: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 

USE: 



ADDRESS 


BASE 


00000 


2 


00001 


e 


00002 


10 



Indexing and indirect addressing are permitted. 

ARGUMENT 

The argument is in the A register and the scaling of the 
argument is B scaled at Q = 23. On exit, the result is in the 
A, B registers scaled at Q = 23. 

ERROR ALARMS 



If the value of independent variable is such that its exponential 
exceeds the capacity of the A register, overflow is set and 
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USE: (Cont. ) 



the A, B registers contain erroneous data. The approximate 
maximum values are listed below: 



METHOD: 



BASE 


Xmax 


2 


23. 99999 


e 


15. 94238 


10 


6. 923689 



The argument is first converted to its base 2 equivalent 
using the identity: 



_ x log„k 
= 2 5 2 ; k = e, 10. 



The result is then shifted to a scaling of 23 to obtain the form: 



i. f 



z'-r 1 



where i and f are the integral and fractional parts of the 
argument. The following polynominal is used to compute 2 

~ 2 
6 k 

£ C, X 
k 



.f 







C l = 

C 2 = 

C 3 = 

C 4 = 
C. = 



C = 



1. 0000000 
. 34657210 
.06006622 
. 00691806 
. 00061973 
. 000033177 
. 000004208 



j. 
and i is used to scale the result since 2 may be 

accomplished by a shift in a binary machine. 

-6 
For X s 0, the relative error is no greater than 10 

in magnitude. For X < 0, the absolute error does not 

6 
exceed 10" . 
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CO 



00000 
00001 
00002 
000C3 
00OC4 
000C5 
00OC6 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
0004 1 
00042 
00043 
00044 



37 
74 
01 

37 
71 

77 
64 
7i 
66 
35 
46 
66 
35 
64 
55 
64 
55 
64 
55 
64 
55 
64 
55 
64 
66 
55 
35 
64 
55 
64 
46 
76 
72 
01 
46 
67 
71 



00014 
00072 
00053 
00012 
00014 
40000 
00060 
00012 
00000 
00013 
10012 
20001 
00012 
00071 
00070 
00012 
00067 
00012 
00066 
00012 
00065 
00012 
00064 
00012 
00001 
00063 
00012 
00012 
00074 

00073 
00400 
00013 
00075 
00046 
00600 
00000 
00014 



1 $EXP P3PD 


012300000 


2 EXP STX 


TX 


3 


SKD 


P2l,4 


4 


BRU 


LEFT, 4 


5 


STX 


TA 


6 


LDX 


TX 


7 


EAX 


*0 


8 


MUL 


BASE, 6 


9 


LDX 


TA 


10 


RSH 


0*2 


11 SAVE STA 


EXPCJN 


12 


BAC 




13 


RCY 


1 


14 


STA 


TA 


15 


MUL 


C6*4 


16 


ADD 


C5*4 


17 


MUL 


TA 


18 


ADD 


C4*4 


19 


MUL 


TA 


20 


ADD 


C3*4 


21 


MUL 


TA 


22 


ADD 


C2*4 


23 


MUL 


TA 


24 


ADD 


Cl*4 


25 


MUL 


TA 


26 


RSH 


1 


27 


ADD 


CQ*4 


28 


STA 


TA 


29 


MUL 


TA 


30 


ADD 


ONE 


31 


MUL 


Pl*4 


32 


CAX 




33 


LDA 


EXPQN 


34 


SKA 


SIGN 


35 


BRU 


NEG,4 


36 


XXA 




37 


LSH 


0,2 


38 


LDX 


TX 



SAVE X 

Gd SCALE LEFT 
SAVE DIFF 

LOAD BASE ADDRESS 
REDUCE TO BASE 2 

SCALE AT 23 

SAVE INTEGER PART 

AFFIX SIGN TO F 

EVAL POLYNOMIAL 



2**F AT 2 

SCALE AT 23 
SAVE IN X 



SCALE BY 2**1 



I 



00045 


51 


00000 


39 




BRR 





00046 


46 


01000 


40 


NEi* 


ClMA 




00047 


U 46 


00600 


41 




XXA 




00050 


2 66 


ooooo 


42 




RSH 


0*2 


00051 


71 


00014 


43 




LDX 


TX 


00052 


51 


ooooo 


44 




BRR 


C 


00053 


2 67 


ooooo 


45 


LEFT 


LSH 


0,2 


00054 


71 


00014 


46 




LDX 


TX 


00055 


77 


40000 


47 




EAX 


*0 


00056 


6 64 


00060 


48 




MUL 


BASE, 6 


00057 


4 01 


00011 


49 




BRU 


SAV£,4 


oooeo 


10000000 


50 


BASE 


DATA 


010Q00000 


oooei 


13425217 


51 




DATA 


013425217 


00062 


3244( 


5474 


52 




DATA 


032446474 


00063 


20000000 


53 


cc 


DATA 


020C00000 


00064 


1305( 


5171 


54 


CI 


DATA 


013056171 


00065 


01730100 


55 


C2 


DATA 


01730100 


00066 


00161261 


56 


C3 


DATA 


0161261 


00067 


00012117 


57 


C4 


DATA 


012117 


00070 


00000426 


5S 


C5 


DATA 


0426 


00071 


00000044 


59 


C6 


DATA 


044 


00072 


00000025 


60 


P21 


DATA 


21 


00073 


00000004 


61 


PI 


DATA 


l*/(23-21 ) 




00000012 


62 


TA 


EQU 


10 




00000013 


63 


EXP9N 


EQU 


11 




00000014 


64 


TX 


EQU 


12 


00074 


00000001 


65 


9KE 


DATA 


01 


00075 


40000000 


66 


SIGN 


DATA 


040000000 








67 




END 





SCALE 9Y 2**1 



SCALE AT 21 

GET BASE ADDRESS 
REDUCE T8 BASE 2 
GO tVAL P8I.UM3MIAL 
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SDS 900 SERIES PROGRAM LIBRARY 

PROGRAM DESCRIPTION 

Catalog No. 203025-C 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 



SOURCE 
LANGUAGE: 



Exponential (2, e, 10), Floating - EXF 
W. S. LaSor, SDS 
1 7 January 1 964 

Any SDS 920/930 Computer 

To compute the floating point exponential (base 2, e, 10) 
of a floating point argument in the A, B registers. 

DPM 

Instructions and constants: 237 oct, 159 dec 

Base 2, 2.24 - 7.36 milliseconds 

Base e, 10, 2.81 - 7.93 milliseconds 

SYMBOL 



USE: 



1. FUNCTION 

The floating point exponential (base 2, e, 10) of the 
contents of A, B replaces the contents of A, B. 
The contents of the X register are unchanged. The 
address field of the programmed operator is used 
as follows to define the base: 



ADDRESS 



BASE 



00000 


2 


00001 


e 


00002 


10 



Indexing and indirect addressing are permitted. 

2. ARGUMENT 

Both the argument and the result are in standard double 
precision floating point format (see Fixed Point Arithmet 
Double Precision Description for explanation of format). 
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USE: (Cont. ) 3. ERROR ALARMS 

255 

If the result of exponentiation is greater than 2 in 

magnitude, the result is set to +2"5 and overflow is 
set. If the result is less than 2~256 [ n magnitude, the 
answer is set to zero but overflow is not set, 

METHOD: The argument is first converted to its base 2 equivalent 

by multiplication by logj^, k = e, 10. The result is 
then unfloated and the integer saved as the new exponent 
since: 

2 l> f = 2 1 • 2" £ 

which is standard binary floating point format. The 
fractional remainder is then made positive and its 
exponential initially set to 1 . At this point, the sub- 
routine begins subtracting off those factors of log2(l+2 ) 
which can be subtracted and still leave a positive result. 
For each factor that is found, the exponential is multiplied 
by (1+2 ) and this result replaces the previous value. A 
total of 17 factors are tried and the result after all 
possible factors have been subtracted will always be less 
than 1. 1 x 10" . This value is used to evaluate: 

2 X = 1 + CjX 



where 



C = . 693147180578 



which is then multiplied by the accumulated exponential 
to obtain the final result. The answer is then normalized 
and, barring exponent overflow or underflow, the 
exponent is packed and the subroutine exits. 

The maximum relative error: 



(k ) X - k 

k X 



k = 2, e, 10 



- 11 
does not exceed 5x10 in magnitude. 
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Flow Diagram 

EXPONENTIAL (2, e, 10), FLOATING - EXF 

Catalog No. 2030 25 C 




SAVE X 
5AVE RETURN 



i 



EKTEACT AND 

SAVE 
E^PONENT^E) 



^tefc 



/ BASE 2 ? J 
IWo 



i 



CONVERT TO 
BASE 2 AND SAVe , 
E+2=E 



I 



FIX LEFT 


E£OZ 


e:o 


p» 


FIX 1?\<SWT 









I 



INTEGER* 

KiEW 
EXPONENT 



i 



MAKE FRACTION 
P05!T|vyE(sP) 



I 



SET EXP= 
SET K=l 




a 
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F-UO& 2 (\4-2" k )=F 



( k- 17 ) 



k<i7 



T^ 7 




COMPUTE 2' 



I 



(EKP) (2 F ) r EXP 
tWCREMEKT MCW EX- 
PONENT 6 NORMALIZE 



LOA.D MAK. 
VALUE B sOj? 



{ 



i 



^— -(TEST WEW E^PONEKt Y" 256 »l SET EXP=0 



F 



j [- 256 ,255] 



LOAD 
EXPONENT 



RESTORE X 
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1 


$EXF 


PQPD 


012300000 


00000 





37 


00231 


2 


EXF 


STX 


TX 


00001 





71 


00000 


3 




LDX 





00002 





37 


00225 


4 




STX 


EXIT 


0000 3 


U 


46 


00122 


5 




STE 




00004 


4 


37 


00224 


6 




STX 


E,4 


00005 





71 


00231 


7 




LDX 


TX 


00006 


U 


77 


40000 


8 




EAX 


*0 


00007 





46 


00600 


9 




XXA 




00010 





72 


00236 


10 




SKA 


ADDR 


00011 


4 


01 


00117 


11 




BRU 


CNV«T,4 


00C12 


4 


76 


00224 


12 




LDA 


E,* 


00013 





73 


00235 


13 


ETEST 


SKG 


ONES 


00014 


4 


01 


00125 


14 




BRU 


RIGHT, 4 


00015 





46 


00600 


15 




XXA 




00016 





35 


00222 


16 




STA 


ARG+1 


00017 


u 


36 


00221 


17 




STB 


ARG 


00020 





64 


00233 


18 




MUL 


ONE 


to 00021 


2 


67 


00000 


19 




LSH 


0,2 


<!n 00022 


4 


35 


00230 


20 




STA 


S,4 


00023 





76 


00222 


21 




LDA 


ARG + l 


00024 


U 


75 


00221 


22 




LDB 


ARG 


00025 


2 


67 


00000 


23 




LSH 


0,2 


00026 





02 


20001 


24 




R9V 




00027 


4 


14 


00146 


25 




ETR 


MASK, 4 


D0030 





36 


00221 


26 




STB 


ARG 


)0031 





35 


00222 


27 


SET 


STA 


ARG + 1 


)0032 


4 


76 


00142 


28 




LDA 


Kl*4 


00033 





46 


00002 


29 




CLB 




00034 





35 


00227 


30 




STA 


R+l 


00035 





36 


00226 


31 




STB 


R 


00036 


4 


76 


00145 


32 




LDA 


Pl6,4 


00037 


4 


35 


00223 


33 




STA 


CNTR,4 


00040 


4 


71 


00143 


34 




LDX 


K2*4 


00041 





76 


00222 


35 




LDA 


ARG + l 


00042 





75 


00221 


36 




LDB 


ARG 


00043 


6 


73 


00156 


37 


L03P 


SKG 


TABLE-1,6 


00044 


4 


01 


00066 


38 




BRU 


TEST, 4 



SAVE X 
SAVE RETURN 

EXTRACT EXPONENT 

SAVE 

GET BASE ADDRESS 

TEST FOR BASE 2 

RECALL EXPONENT 

SnIFT RIGHT T9 FIX 
SHIFT LEFT TO FIX 
SaVE ARG 

FtfRM NEW EXPONENT 



GET FRACTION 
MAKE ARG POSITIVE 

SET ANSWER TO 1 

SET COUNT TO 17 

RECALL ARG 
COMPARE KTH FACTOR 



i 

o 



00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
0006 1 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
C0077 
001C0 
00101 
001C2 
00103 
00104 
00105 
00106 
00107 
00110 
001 11 
00112 
001 13 



46 
54 
46 
56 
35 
36 
76 
75 
66 
46 
55 
46 
57 
35 
36 
76 
75 
60 
41 
CO 
55 
00 
62 
55 
46 
76 
67 
46 
73 
73 
01 
46 
46 
71 
51 
72 
01 
76 
75 



00014 
00177 
00014 
00156 
00222 
00221 
00227 
00226 
00000 
00014 
00226 
00014 
00227 
00227 
00226 
00222 
00221 
00223 
00043 
00147 
00142 
00226 
00230 
00144 
00400 
00230 
10002 
00600 
00151 
00152 
00110 
00600 
0014C 
00231 
00225 
00234 
001 15 
00146 
00i52 



3 9 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 



TEST 



517 



XAB 
SU9 
XAB 

sue 

STA 

STB 
LDA 
LDB 
RSH 
XAB 
ADD 
XAB 
ABC 
STA 
STB 
LEA 
LDB 
SKR 
BRX 
DPM 
ADD 
DPM 
XMA 
ADD 
CAX 
LDA 
N9D 
XXA 
SKG 
SKG 
BRU 
XXA 
LDE 
LDX 
PRR 
SKA 
BRU 
LDA 



SUBT KTH FACT8R 



TABLE+16,6 

TABLE-1,6 
ARG + 1 
ARG 
R + l 

R 
0*2 

R 

R*l 

R+l 

R 

ARG+1 

ARG 

CNTR,4 

L36P,4 

Cl*4 

C0*4 

R 

S,4 

P2*4 

S,4 
2 

P255.4 
M257,4 

euT+1,4 



TX 
EXIT 

SIGN 

$ + 4,4 
M A S K # 4 



MODIFY ANSWER 



TEST F8R 17TH TIME 
COMPUTE 2**F 

RECALL NEU EXP8N 

NORMALIZE RESULT 

TEST F8R EXPON 6VFL8 

6VFL6 

PACK EXPONENT 
RESTORE X 

SET 6VFL8 IF GTR 255 

UNDERFLOW 

Sdl MAXIMUM VALUE 



ho 
I 



00114 
00115 
00116 
C0117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
001^1 
C0142 
00143 
00144 
00145 
00146 
00147 

ooieo 

00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 



51 

46 

01 

46 

00 

62 

55 

71 

01 

46 

46 

66 

36 

46 

72 

75 

36 

14 

01 

00 

00 

00 

20000000 
0004000! 
00000002 
O0O0G020 
37777777 
77374544 
13056205 
00000377 
77777377 
624534C0 
13425216 
11363170 
32446474 
22560015 
12232360 
U5340032 
02630773 



00141 
30003 
00106 
00600 
40136 
00224 
00144 
00224 
00013 
01000 
00600 
00000 
00221 
00002 
00234 
00235 
00230 
00146 
00031 
00153 
00155 
00105 



78 
79 
60 
81 

62 
33 
84 
85 
86 
87 
88 
80 

90 
91 
92 

93 
94 

95 
96 
97 
98 

99 
100 
101 
102 
103 
104 
105 

106 
107 

108 



CKVRT 



RIGHT 



LIoT 

8VFL9 

Kl 

K2 

P2 

P16 

MASK 

CI 

P255 
M257 
LOGE 



BRR 
CLR 
BRU 
XXA 

DPM 

XMA 

ADD 

LDX 

BRU 

CNA 

XXA 

RSH 

STB 

CLB 

SKA 

LDB 

STB 

ETR 

BRU 

HLT 

HLT 

HLT 

DATA 

DATA 

DATA 

DATA 

DATA 

DED 



109 L6G10 DED 



evFi_e#4 
euT-1,4 

*LIST-1,6 

E,4 

P2*4 
ETEST,4 



0*2 
ARG 

SIGN 

ONES 
S,4 

MASK, 4 

SET ,4 

L3GE*4 

L3G1CU4 

8UT-2*4 

l*/(23-l ) 

040001 

2 

16 

037777777 

.693147l60578*/i47-l ) 



SET RESULT T8 ZERO 

GET BASE EQUIVALENT 
ADD 2 T9 EXPONENT 

MAKE PRSIUVE 
FIX ARGUMENT 



FORM NEW EXPONENT 
MAKE ARG POSITIVE 
C3NT INUE 



TCJ SET OVFLO 



DATA 255 

DATA -2 5 7 

DED 1 .442695040389*/ (47-2 ) 



110 
111 
112 
113 



TABLE 



DATA 
DATA 
DAI A 
DATA 



3.321 9280 94 887*/ (4 7-2) 

022560015 
012232360 
05340032 
02630773 



N3 
I 
00 



00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
002C0 
002C1 
002C2 
002C3 
00204 
00205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00223 
00224 
00225 
00226 
00230 
00231 
00232 
00233 
00234 
00235 
00236 



01327264 
00556362 
00267745 
00134116 
O0056076 
00027044 
00013423 
00005612 
00002705 
00001342 
00000561 

00000270 
00000134 

07176750 
45715Q62 
16375721 
37262205 
67261667 

64134120 
02667347 
10666317 
03776033 
62467170 
65427550 
21660521 
16542177 
50623543 
24602400 
52357324 
25203177 



00000000 
00000001 
40000000 
77777777 
00037777 
00000142 



1 14 




DATA 


01327264 


115 




DATA 


0556362 


116 




DATA 


0267745 


117 




DATA 


0134116 


118 




DATA 


056076 


119 




DATA 


027044 


120 




DATA 


013423 


121 




DATA 


05612 


122 




DATA 


02705 


123 




DATA 


01342 


124 




DATA 


0561 


125 




DATA 


027o 


126 




DATA 


0134 


127 




DATA 


07176750 


128 




DATA 


045715062 


129 




DATA 


016375721 


130 




DATA 


037262205 


131 




DATA 


067261667 


132 




DATA 


064134120 


133 




DATA 


02667347 


134 




DATA 


010666317 


135 




DATA 


03776033 


136 




DATA 


062467170 


137 




DATA 


065427550 


138 




DATA 


021660521 


139 




DATA 


016542177 


140 




DATA 


050623543 


141 




DATA 


024602400 


142 




DATA 


052357324 


143 




DATA 


025203177 


144 


ARG 


BSS 


2 


145 


CKTR 


BSS 


1 


146 


E 


BSS 


1 


147 


EXIT 


BSS 


1 


148 


R 


BSS 


2 


149 


S 


BSS 


1 


150 


TX 


BSS 


1 


151 


ZER8 


DATA 





152 


ONE 


DATA 


01 


153 


SIGN 


DATA 


040000000 


154 


6NES 


DATA 


-1 


155 


AEDR 


DATA 


037 77 7 


156 


cc 


EQU 


Kl 


157 




END 
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Catalog No. 203007-B 



IDENTIFICATION: 



ARC TAN of A - ATN 



AUTHOR: 



ACCEPTED: 



W. S. LaSor, SDS 
14 February 1963 



COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 



Any 920/930 Computer. 

To compute arctan -^ where y and x are numbers in the A and 
B registers respectively. 



None 



STORAGE: 



Instructions and constants: 71 oct, 57 dec 

Used standard subroutine temporary locations 12 thru 17 



TIMING: 



1032 [jisec 



SOURCE 
LANGUAGE: 



SYMBOL 



USE: 



1. FUNCTION 

The arctangent of the variable determined by the contents of 
A divided by the contents of B replaces the contents of A. 
The address field of ATN is not used. 

2. ARGUMENTS 

The numberator in A and the denominator in B may be at any 
scaling as long as the scaling is identical. On exit, the result is 
in A in fractions of a circle scaled at Q = -1 (see program 
description for SIN for examples). The result is not restricted 
to principal values, but may take on any value between -180 
and 179.99998 . Thus, output from ATN is entirely compatible 
for input to SIN or COS. 
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METHOD: 



The relative magnitudes of the two arguments are first 
determined. If the absolute value of the contents of A is 
less than the absolute value of the contents of B, then 

(A) 
u = is found and the arctangent of u computed. If the 

(B) 
relative magnitudes are not as stated above, then u = . . is 

found and the arccotangent of u is computed,, The answer 
at this point is in either the first or fourth quadrant. The 
sign of the denominator of the input variable is then inspected 
and, if negative, 180 degrees are added to the result to 
obtain the final answer. 

The following approximation is used: 



arctan u = 2 C_. . U 
2k-l 



2k- 1 



where: 



C = .15914533 
C = -.05302625 

C c = .03152520 

5 

C = -.02106178 



C = .01267292 
C = -,.00534860 



13 



,,00108423 



Maximum absolute error is less than 10 



-6 
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CO 

I 

CO 



00000 
00001 
00002 
00003 
000G4 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 



37 
35 
72 
46 

U 35 



46 
35 
17 
35 
46 



72 
U 46 
73 
4 01 
4 51 
62 
66 
65 
35 
64 
67 



35 
64 

55 



U 64 
4 55 



64 
55 
64 
55 
64 
55 
64 
55 
64 



67 
U 40 



00014 
00016 
00070 
01000 
00017 
00010 
00015 
00016 
00016 
10012 
00070 
01000 
00017 
00020 
00016 
00017 
00001 
00017 
00012 
00012 
00001 
00013 
00067 
00066 
00013 
00065 
00013 
C0064 
00013 
00063 
00013 
00062 
00013 
00061 
00012 
00001 
20001 



1 $ATN P9PD 


012500000 


2 ATN STX 


TX 


3 


STA 


YS 


4 


SKA 


SIGN 


5 


CNA 




6 


STA 


Y 


7 


C6A 




8 


STA 


xs 


9 


EOR 


YS 


10 


STA 


RS 


11 


BAC 




12 


SKA 


SIGN 


13 


CNA 




14 


SKG 


Y 


15 


BRU 


$ + 3,4 


16 


BRR 


$*4 


17 


XMA 


Y 


18 


RSH 


f 1 


19 


DIV 


Y 


20 


STA 


ARG 


21 


MUL 


ARG 


22 


LSH 


1 


23 


STA 


ARGSQ 


24 


MUL 


Cl3,4 


25 


ADD 


Cll#4 


26 


MUL 


ARGSQ 


27 


ADD 


C9*4 


28 


MUL 


ARGSQ 


29 


ADD 


C7*4 


30 


MUL 


ARGSQ 


31 


ADD 


C5*4 


32 


MUL 


ARGSQ 


33 


ADD 


C3*4 


34 


MUL 


ARGSQ 


35 


ADD 


Cl*4 


36 


MUL 


ARG 


37 


LSH 


1 


38 


evT 





SAVE INDEX 
SAVE SIGN OF Y 
GET ABSVfY] 



SAVE SIGN OF X 
GET SIGN OF RESULT 



GET ABSVCX! 

FIND LARGER ELEMENT 

SET FLAG 
EXCHANGE X AND Y 

FORM X/Y OR Y/X AT 1 

ARG SQUARED AT 1 
EVAL POLYNOMIAL 



ARCTANCUJ AT 
SCALE AT -1 
TEST FLAG 



GO 
I 



00045 


4 01 


00050 


39 




BRU 


$ + 3,4 


00046 


4 54 


00060 


40 




SUB 


PSO, 4 


00047 


46 


01000 


41 




CNA 




00050 


53 


00015 


42 




SKN 


XS 


00051 


4 01 


00053 


43 




BRU 


$ + 2,4 


00052 


17 


00070 


44 




F.8R 


SIGN 


00053 


71 


00014 


45 




LDX 


TX 


00054 


53 


00016 


46 




SKN 


RS 


00055 


51 


00000 


47 




BRR 





00056 


46 


01000 


48 




CNA 




00057 


51 


00000 


49 




BRR 





00060 


20000000 


50 


PSO 


DATA 


1 */ (23-1 ) 


00061 


12137126 


51 


CI 


DATA 


012137126 


00062 


71154676 


52 


C3 


DATA 


071154676 


00063 


10044Q45 


53 


C5 


DATA 


010044045 


00064 


65156617 


54 


C7 


DATA 


065156617 


00065 


14764206 


55 


C9 


DATA 


014764206 


00066 


65027452 


56 


Cll 


DATA 


065027452 


00067 


04341626 


57 


C13 


DATA 


04341626 




00000012 


56 


ARb 


EGU 


012 




00000013 


59 


ARbSQ 


EQU 


013 




00000014 


60 


TX 


EQU 


014 




00000015 


61 


XS 


EQU 


015 




00000016 


62 


YS 


EQU 


016 




00000017 


63 


Y 


EQU 


017 


00070 


40000000 


64 


SIGN 


DATA 


040000000 




00000016 


65 


RS 


EQU 


Y3 








66 




END 





GcT 90-ARCTAN 

TEST SIGN 8F X 

PUT IN 3RD QUAD. 

RESTORE INDEX 

AFFIX SIGN TO RESULT 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203032-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 



ARC TAN, Double Precision - ATD 
W. S. LaSor, SDS 
26 April 1963 

Any SDS 920/930 Computer 

To compute the double precision arctangent of the ratio 
of two double precision arguments; one in the A,B 
registers and the other in memory. 

DPN, DPD, DPM 

Instructions and constants: 236 oct, 158 dec 
Uses temporary storage locations 20 thru 22. 
5.0 - 5.5 milliseconds 

SYMBOL 



USE: 



FUNCTION 

The double precision arctangent of the contents of A , B 
divided by the contents of M + l.M replaces the contents 
of A, B. The contents of X are unchanged. 

ARGUMENT 

Both arguments must be in standard double precision 
format and identically scaled. The argument in memory 
is addressed by the ATD programmed operator. Thus: 



ATD 



M 



computes arctan 



(A.B) 



and puts the result in A, B. 



(M + l.M) 
The answer is in radians arid lies in the range: 

-ft£ arctan $: V 



14-1 



Page 2 of 2 



Catalog No. 203032 B 



METHOD: 



The sign of the result is first found by an exclusive OR 
between the signs of both arguments. The arguments are 
then changed to absolute value and the magnitudes inspected 

If |(A,B)| £ |(M+1.M)|, U = i / Jl A ; B > ) |v| is formed and the 

* '• IfM 1 Mil 

Arctan U computed; if |(A,B)|> |(M+1,M)|, U = K * ' ff •' 



|(A.B)| 



is found and the Arccot U = Arctan 1/U is calculated. 
The Arctan U is computed from the series: 

tan" 1 U = U - 1/3 U 3 + 1/5 U 5 - 1/7 U ? 



-1/16 s<U s < 1/16 
If U > 1/16, the reduction formula: 



-1 TT -1 

tan U = tan 



U-X. 



1+UX. 



+ tan" X 



is used where X. is determined by the following table; 



i 


Range 


X. 
i 


tan" -1 X. 
i 


1 


1/16 


<? 


U < 


3/16 


1/8 


. 124, 354, 994, 547 


2 


3/16 


<: 


U < 


5/16 


1/4 


. 244,978,663, 127 


3 


5/16 


« 


u < 


7/16 


3/8 


.358,770,670, 271 


4 


7/16 


^ 


u < 


9/16 


1/2 


. 463,647,609,001 


5 


9/16 


^ 


u < 


11/16 


5/8 


. 558, 599,315,344 


6 


11/16 


^ 


u < 


13/16 


3/4 


.643, 501, 108, 793 


7 


13/16 


« 


u < 


15/16 


7/8 


. 718,829, 999,622 


8 






u > 


15/16 


1 

— , 


. 785, 398, 163, 397 

i_ „ i 



The t-ign of the result is then affixed and the answer placed 
in the proper quadrant according to the sign of the operand 

in memory. 



The maximum absolute error does not exceed 10 
magnitude. 

14-2 



-12 



in 



I 











1 $ATD P8PD 


012500000 


00000 





37 


00020 


2 ATD STX 


TX 


00001 





71 


00000 


3 


LDX 





00002 





37 


00021 


4 


STX 


EXIT 


00003 


4 


35 


00225 


5 


STA 


YS.4 


00004 





72 


00234 


6 


SKA 


SIGN 


00005 


1 


03 


00000 


7 


DPN 




00006 


4 


35 


00233 


8 


STA 


Y + 1,4 


000C7 


4 


36 


00232 


9 


STB 


Y,4 


00010 





71 


00020 


10 


LCX 


TX 


00011 





77 


40021 


11 


EAX 


*EXlT 


00012 


2 


76 


00001 


12 


LB A 


1*2 


00013 


2 


75 


00000 


13 


LOB 


0,2 


00014 


4 


35 


00224 


14 


STA 


XS*4 


00015 


4 


17 


00225 


15 


E3R 


YS*4 


00016 


4 


35 


00225 


16 


STA 


RS*4 


00017 


2 


76 


00001 


17 


LDA 


1.2 


00020 





72 


00234 


18 


SKA 


SIGN 


00021 


1 


03 


00000 


19 


DPN 




00022 





71 


00235 


20 


LDX 


ONES 


00023 


4 


73 


00233 


21 


SKG 


Y+1,4 


00024 


4 


01 


00031 


22 


BRU 


$♦5,4 


00025 


4 


62 


00233 


23 


XMA 


Y+1,4 


00026 


U 


46 


00014 


24 


XAB 




00027 


4 


62 


00232 


25 


XMA 


Y,4 


00030 


2 


46 


00014 


26 


RCH 


014*2 


00031 





37 


00022 


27 


STX 


FLAG 


00032 





66 


00001 


28 


RSH 


1 


00033 


b 


01 


00232 


29 


DPD 


Y,4 


00034 


4 


35 


00227 


30 


STA 


ARG+1,4 


00035 


4 


71 


00155 


31 


LDX 


189*4 


00036 


4 


54 


00154 


32 


SUB 


165,4 


00037 





72 


00234 


33 


SKA 


SIGN 


00040 


4 


01 


00151 


34 


BRU 


ATDl,4 


00041 


4 


41 


00042 


35 


BRX 


$ + 1.4 


00042 


4 


54 


00172 


36 


SUB 


134,4 


00043 





72 


00234 


37 


SKA 


SIGN 


00044 


4 


01 


00046 


38 


BRU 


$♦2,4 



SAVE INDEX 
SAVE RETURN 

SAVE SIGN eF Y 
GET A8SV{Y) 



L3AD X 

SAVE SIGN 8F X 
FdRM SIGN OF ANSUER 

RECALL MSh 8F X 
GET ABSV{X] 



FIND LARGER ELEMENT 

X GREATER THAN Y 

EXCHANGE X AND Y 

SlT FLAG ACCORDINGLY 

FdRM X/Y BR Y/X AT 1 

RESULT=U 

LCJCATE INTERVAL 

INTERVAL 

JumP 8N ITH INTERVAL 





00045 


4 


41 


00042 


39 


BRX 


$-3,4 




00046 


4 


76 


00227 


40 


LBA 


ARG+1,4 




00047 


4 


36 


00226 


41 


STB 


ARG,4 




00050 


6 


64 


00171 


42 


MUL 


TABLE-!*6 




00051 


4 


35 


00231 


43 


STA 


ARGS0+1*4 




00052 


4 


36 


00230 


44 


STB 


ARGSQ,4 




00053 


4 


76 


00226 


45 


LDA 


ARG,4 




00054 





66 


20001 


46 


RCY 


1 




00055 


6 


64 


00171 


47 


MUL 


TABlE-1#6 




00056 





67 


20001 


48 


LCY 


1 




00057 


4 


55 


00230 


49 


ADD 


ARGSQ,4 




00060 





46 


20005 


50 


A6C 






00061 


4 


57 


00231 


51 


ADC 


ARGSQ+J *4 




00062 


4 


55 


00175 


52 


ADD 


132,4 




00063 


4 


62 


00227 


53 


XMA 


ARG+1,4 




00064 





46 


00014 


54 


XAB 




£ 


00065 


4 


62 


00226 


55 


XMA 


ARG,4 


4^ 


00066 





46 


00014 


56 


XAB 






00067 


6 


54 


00171 


57 


SUB 


TABLE-1,6 


I 


00070 


5 


01 


00226 


58 


DPD 


ARG,4 




00071 





66 


00001 


59 


RSH 


1 




00072 


4 


35 


00227 


60 EVAL STA 


ARG + i .4 




00073 


4 


36 


00226 


61 


STB 


ARG,4 


I 


00074 


5 


02 


00226 


62 


DPM 


ARG,4 




00075 


4 


35 


00231 


63 


STA 


ARGSQ+1*4 




00076 


4 


36 


00230 


64 


STB 


ARGSQ#4 


I 


00077 


5 


o: 


00170 


65 


DPM 


C9»4 




00100 





46 


00014 


66 


XAB 






00101 


4 


55 


00166 


67 


ADD 


C7*4 




001C2 





46 


00014 


68 


XAB 






00103 


4 


57 


00167 


69 


ADC 


C7+l,4 


I 


00104 


5 


02 


00230 


70 


DPM 


ARGSGU4 




00105 





46 


00014 


71 


XAB 






00106 


4 


55 


00164 


72 


ADD 


C5*4 




00107 





46 


00014 


73 


XAB 






00110 


4 


57 


00165 


74 


ADC 


C5+l*4 


I 


00111 


5 


02 


00230 


75 


DPM 


ARGSQ,4 




00112 


u 


46 


00014 


76 


XAB 






00113 


4 


55 


00162 


77 


ADD 


C3*4 



RlCALL u 

compute u*x! i ] 
make positive 



1+U*X[ I 1 AT 2 
RtCALL U 



U-Xlll AT 1 

(U-Xf I 1 l/Cl+U*X( I 1 1 

SCALE AT 



ARG SQUARED AT 



EVAL POLYNOMIAL 



00114 46 00014 



i 



00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 



57 

02 

66 

55 

02 

46 

55 

46 

57 

53 

01 

46 

54 

46 

46 

56 

17 

53 

01 

46 

54 

46 

56 

71 

53 

51 

03 

51 

76 

67 

01 

01000000 
00040000 
52104130 
14441766 
24210220 
31103755 

25252610 



00163 
00230 
00002 
00175 
00226 
00014 
00202 
00014 
00213 
00022 
00136 
00014 
00156 
01000 
00014 
00156 
00235 
00224 
00144 
00014 
00160 
00014 
00161 
00020 
00225 
00021 
00000 
00021 
00227 
00001 
00072 



78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 



ATD1 



1E5 
1E9 
PI2 



XAB 
ADC 
DPM 
RSH 
ADD 
DPM 
XAB 
ADD 
XAB 
ADC 
SKN 
BRU 
XAB 
SUB 
CNA 
XAB 

sue 

E9R 
SKN 
BRU 
XAB 
SUB 
XAB 

sue 

LDX 

SKN 

BRR 

DPN 

BRR 

LDA 

LSH 

BRU 

DATA 

DATA 

DED 



C3+l*4 

ARGSQ,4 

2 

1B2,4 

ARG,4 

ATN,6 

ATN+9,6 
FLAG 
$ + 7,4 

PI2,4 



PI2,4 

ONES 
XS*4 
$ + 5,4 

PI*4 

PI+1,4 
TX 

RS»4 
EXIT 



SCALE AT 2 



ARCTANfUj AT 2 
ADD ATNIXI I ) 1 



TEST FLAG 



GET ARCCeTANGENT 



TEST SIGN 8F X 
PUT IN 3RD QUAD. 



RESTORE INDEX 

AFFIX SIGN TP RESULT 



EXIT 

ARG+1,4 

1 

EVAL,4 

l*/<23-5> 

l*/<23-9) 

1.5707963267 95*/ (47-2) 



113 PI 



114 C3 



DED 3.!4l5<?2653589*/<47-?) 
D£D -.333333333333*/ (47-01 






00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
00173 
001 74 
00175 
00176 
00177 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00230 
00232 



00234 
00235 



65252525 
46314632 
06314631 
33333362 
73333333 
43434322 
03434343 
02000000 
0^000000 
06000000 
10000000 
12000000 
14000000 
16000000 
20000000 
00000000 
24652664 

3744557Q 
50171302 
40530376 
52757434 
50623236 
61274212 
25042074 

00000000 
00775267 
01753335 
02675414 
03553063 
04360013 
05113617 
05600247 
06220773 



00000020 
00000021 

00000022 

40000000 
77777777 

00000172 
O0C00225 



115 

116 

1 17 

118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
13G 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 



C5 
C7 
C9 
TABLE 

1E2 



ATN 



XS 

YS 

ARG 

ARGSG 

Y 

TX 

EXIT 

FLAG 

SIGN 

ONES 

1R4 

RS 



DED 

DED 

DED 

DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

ess 

BSS 

ess 

BSS 

BSS 

EGU 

EQU 

EQU 

DATA 

DATA 

EQU 

EGL 

END 



.2*/<47-0) 
-.142857142857*/ (47-0) 



.Hllllllllll*/U7-0) 



002000000 
0Q4000000 
006000000 

ciooooooo 

012000000 

01*000000 
016000000 
1 */ < 23-1 ) 



02*652664 

037445570 

050171302 

040530376 

052757434 

050623236 

061274212 

025042074 



0775267 

01753335 

02675414 

03553063 

04360013 

051 13617 

05600247 

06220773 

1 

1 

2 

2 

2 

020 

021 

022 
040000000 
-1 

TABLE 
YS 



.125*/<23-l ) 
.25*/C23-l ) 
.375*/(23-l> 
.5*/<23-l> 
.625*/(23-l ) 
.75*/<23-l) 
.675*/<23-l ) 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 

Catalog No. 203026-C 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 

SOURCE 
LANGUAGE: 

USE: 



1. 



2. 



ARC TAN, Floating Point - ATF 
W. S. LaSor, SDS 
17 January 1964 

Any SDS 920/930 Computer 

To compute the floating point a r tan gent of the ratio of two 
floating point arguments; one in the A, B registers and the 
other in memory. 

DPM, FLD, FLN 

Instructions and constants: 371 oct, 249 dec 

4. 9 - 6.4 m.s. 

SYMBOL 

FUNCTION 

The floating point arctangent of the contents of A, B divided 
by the contents of M+l , M replaces the contents of A, B. 
The contents of X are unchanged. 

ARGUMENT 

Both arguments are in standard double precision floating 
point format. The argument in memory is addressed by 
the ATF programmed operator. Thus: 



ATF 



computes arc tan (A, B) 

[ (M+1,M) 
The answer is in radians and lies in the range: 

- tt < arctan < tt 



M 



and puts the result in A, B. 



15-1 
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METHOD: 



The sign of the result is first found by an exclusive OR 
between the signs of both arguments. The arguments are 
then changed to absolute value and the magnitudes inspected. 



If |(A, B)l £ I(M + 1, M)|, U =, ll A ; B *L is formed and the 



M)| 



Arctan U computed; if |(A,B)| > |(M + 1,M)|, U = , 

I I I (A > o) I 

is found and the Arccot U = Arctan 1/U is calculated. 



The Arctan U is computed from the series: 



tan" 1 U = U - 1/3 U 3 + 1/5 U 5 - 1/7 U ? 



-1/16 < U ^ 1/16 



If U > 1/16, the reduction formula: 



tan U = tan 



U-X. 



1+UX. 



+ tan X. 



is used where X. is determined by the following table 



i 


Range 


X. 
l 


tan" X. 
l 


1 
2 
3 

4 
5 
6 
7 
8 


1/16 ^ U < 3/16 

3/16 < U < 5/16 

5/16 ^ U < 7/16 

7/16 <c It < 9/16 

9/16 $ U < H/16 

11/16 ^ U < 13/16 

13/16 ^ < 15/16 

U £ 15/16 


1/8 
1/4 
3/8 
1/2 
5/8 
3/4 
7/8 
1 


. 124, 354, 994, 547 
. 244, 978,663, 127 
. 358, 770,670, 271 
. 463, 647, 609, 001 
. 558, 599, 315, 344 
. 643 : 501, 108, 793 
. 718,829, 999,622 
. 785, 398, 163, 397 



The sign of the result is then affixed and the answer placed 
in the proper quadrant according to the sign of the operand 
in memory. 



The maximum relative error does not exceed 5x10 
in magnitude. 



-11 
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1 $ATF PQPD 


012500000 




00000 





37 


00360 


2 ATF STX 


TX 




00001 





71 


00000 


3 


LDX 







00002 





37 


00357 


4 


STX 


EXIT 




00003 





35 


00364 


5 


STA 


YS 




000C4 





72 


00367 


6 


SKA 


SIGN 


I 


00005 


1 


03 


00000 


7 


FLN 






00006 


4 


35 


00317 


■8 


STA 


RS.4 




00007 


4 


35 


00363 


9 


STA 


Y + 1,4 




00010 


4 


36 


00362 


10 


STB 


Y.4 




00011 





71 


00360 


11 


LDX 


TX 




00012 





77 


40357 


12 


EAX 


*EXIT 




00013 





50 


00365 


13 


SKE 


ZERO 




00014 


4 


01 


00022 


14 


BRU 


$♦6,4 




00015 


2 


53 


00001 


15 


SKN 


1.2 




00016 


4 


01 


00165 


16 


BRU 


L8ADE+1.4 




00017 


4 


76 


00352 


17 


LDA 


PI+1.4 


_, 


00020 


4 


75 


00351 


IS 


LDB 


PI*4 


Oi 


00021 


4 


01 


00162 


19 


BRU 


LOADE-2.4 


GO 


00022 


2 


76 


00001 


20 


LDA 


1*2 




00023 


2 


75 


00000 


21 


LDB 


0.2 




00024 





35 


00361 


22 


STA 


XS 




00025 





17 


00364 


23 


E8R 


YS 




00026 


4 


35 


00317 


24 


STA 


RS.4 




00027 


2 


76 


00001 


25 


LDA 


1.2 




00030 





72 


00367 


26 


SKA 


SIGN 


I 


00031 


1 


03 


00000 


27 


FLN 






00032 





50 


00365 


28 


SKE 


ZERO 




00033 


4 


01 


00041 


29 


BRU 


$ + 6,4 




00034 


4 


76 


00352 


30 


LDA 


PI+1,4 




00035 


4 


75 


00351 


31 


LDB 


PI*4 


I 


00036 


1 


03 


ooooo 


32 


FLN 






00037 





77 


00001 


33 


EAX 


1 




00040 


4 


01 


00164 


34 


BRU 


L9ADE.4 




00041 


4 


74 


00362 


35 


SKD 


Y,4 




00042 


4 


01 


00265 


36 


BRU 


XCHNG#4 




00043 





71 


00370 


37 


LDX 


ONES 




00044 





37 


00364 


38 SET STX 


FLAG 



SAVE INDEX 
SAVE RETURN 

SAVE SIGN OF Y 
GET A8SVCY1 



TEST Y FOR 

TEST SIGN OF X 

SET ANSWER TO -PI 

LOAD EXPON AND EXIT 
LOAD X 

SAVE SIGN OF X 
GET SIGN OF ANSUER 

RECALL MSH OF X 
GET A-BSVfXJ 

TEST X FOR 

SET ANSWER TO -PI/2 



SET EXPONENT TO 1 
LOAD EXP6N AND EXIT 
FIND LARGER ELEMENT 

Y GREATER 

SET FLAG ACCORDINGLY 



I 00045 


5 


02 


00362 


39 


FLD 


Y,4 


00046 





46 


00122 


40 


STE 




00047 


4 


35 


00354 


41 


STA 


ARG+1,4 


00050 


4 


36 


00353 


42 


STB 


ARG, 4 


00051 


4 


37 


00313 


43 


STX 


EXP, 4 


00052 





46 


00600 


44 


XXA 




00053 





73 


00365 


45 


SKG 


ZERO 


00054 


4 


01 


00057 


46 


BRU 


$ + 3,4 


00055 





46 


00600 


47 


XXA 




00056 


4 


01 


00062 


48 


BRU 


$ + 4,4 


00057 





46 


01000 


49 


CNA 




00060 





46 


00600 


50 


XXA 




00061 


2 


66 


00001 


51 


RSH 


1.2 


00062 


4 


35 


00356 


52 


STA 


ARGSQ+1.4 


00063 


4 


36 


00355 


53 


STq 


*RGSQ,4 


00064 


4 


71 


00307 


54 


' L Y 


199,4 


00065 


4 


54 


00305 


55 


Sv 


135,4 


00066 





72 


00367 


56 


SKA 


SIGN 


_ 00067 


4 


01 


00172 


57 


BRU 


ATFi.4 


V 00070 


4 


54 


00302 


58 


SUB 


134,4 


■^ 00071 





72 


00367 


59 


SKA 


SIGN 


00072 


4 


01 


00075 


60 


BRU 


$ + 3,4 


00073 


4 


41 


00074 


61 


BRX 


$♦1,4 


00074 


4 


41 


00070 


62 


BRX 


$-4, 4 


00075 


4 


76 


00356 


63 


LDA 


ARGSQ+1.4 


00076 


4 


37 


00315 


64 


STX 


INTRVL,4 


00077 


4 


36 


00353 


65 


STB 


ARG, 4 


ootoo 


6 


64 


00302 


66 


MjL 


TABLE+1,6 


00101 


4 


62 


00353 


67 


XtfA 


ARG, 4 


00102 


4 


36 


00354 


63 


STB 


ARG+1,4 


00103 





66 


20001 


69 


RCY 


1 


001C4 


6 


64 


00302 


70 


MJL 


TABLE+1 ,6 


00105 





67 


20001 


71 


LCY 


1 


00106 


4 


55 


00354 


72 


ADD 


ARG+i,4 


00107 





46 


20005 


73 


ABC 




00110 


4 


57 


00353 


74 


AEC 


ARG, 4 


00111 


4 


55 


00310 


75 


ADD 


132,4 




n 


77 
f i 


rt rt *\ r\ <"» 


76 


C H A 


2 


00113 





67 


10001 


77 


MOD 


1 



FORM X/Y OR Y/X 
EXTRACT EXPONENT 
RESULT = U 

SAVE EXPONENT OF U 

SCALE U AT 1 

SET SHIFT COUNT 

SAVE SCALED ARG 
LOCATE INTERVAL 

SMALL ARG CASE 



RECALL SCALED ARG 
SAVE INTERVAL 
SAVE LSH OF U 

RECALL LSh OF ARG 

MAKE POSITIVE 



1 +L*XI I J 
FLOAT RESULT 



(J! 
I 



00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 




4 

4 
4 

6 

u 

5 


4 



2 
4 

6 

6 

4 


4 


4 



4 

4 

4 




46 
62 
46 
62 
71 
46 
54 
71 
67 
46 
02 
46 
46 
43 
46 
46 
46 
66 
71 
46 
55 
46 
57 
53 
01 
46 
55 
46 
46 
57 
17 
66 
53 
01 
46 

ce 

«-» «j 

46 
57 
77 



00140 
00356 
00014 
00355 
00315 
00014 
00302 
00366 
10050 
00140 
00355 
00122 
00600 
00214 
00600 
01000 
00600 
00001 
00315 
00014 
00321 
00014 
00322 
00364 
00153 
OOOM 
00351 
01000 
00014 
00352 
00370 
00001 
00361 
00162 
00014 
00351 
00014 
00352 
00002 



78 

79 

80 

81 

82 

83 

84 

65 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 



TESTF 



TE3TX.S 



LDE 




XMA 


ARGSQ+1,4 


XAB 




XMA 


ARGSQ*4 


LDX 


INTRVL,4 


XAB 




SUB 


TABLE+1,6 


LDX 


QNE 


NQD 


40 


LDE 




FLD 


ARGSQ,4 


STE 




XXA 




BRM 


ATAN,4 


XXA 




CNA 




XXA 




RSH 


1*2 


LDX 


INTRVL,4 


XAB 




ADD 


ATN,6 


XAB 




ADC 


ATN+1,6 


SKN 


FLAG 


B*U 


$ + 7,4 


XAB 




ADD 


PI*4 


CNA 




XAB 




ADC 


Pi+1,4 


EOR 


9NES 


RSH 


1 


SKN 


XS 


BRU 


$♦5,4 


XAB 




ADD 


PI#4 


XAB 




ADC 


PI+1,4 


EAX 


2 



FLOAT U-Xl I ) 

(U-XC I )I/[1+U*X(I J } 

ATANCREDUCED ARG1 

SCALE AT 1 
ADD ATN IXC I H 



GET ARCC8TANGENT 



SCALE AT 2 



PUT IN 3RD QUAD. 



00163 





67 


10014 


117 


00164 





46 


00140 


118 


00165 





71 


00360 


119 


00166 


4 


53 


00317 


120 


00167 


o 


51 


00357 


121 


I 00170 


1 


03 


00000 


122 


00171 





51 


00357 


123 


00172 


4 


76 


00313 


124 


00173 


4 


75 


00353 


125 


00174 


4 


71 


00354 


126 


00175 


4 


43 


00214 


127 


00176 





53 


00364 


128 


00177 


4 


01 


00205 


129 


00200 





46 


00600 


130 


00201 





46 


01000 


131 


002C2 





46 


00600 


132 


00203 


2 


66 


00001 


133 


002C4 


4 


01 


00145 


134 


002C5 





53 


00361 


135 


^ 00206 


4 


01 


00164 


136 


o> 00207 





46 


00600 


137 


00210 





46 


01000 


138 


00211 





46 


00600 


139 


00212 


2 


66 


00002 


14G 


00213 


4 


01 


00156 


14! 


00214 





00 


00000 


142 


00215 


4 


73 


00311 


143 


00216 


4 


01 


00263 


144 


00217 





46 


00600 


145 


00220 





66 


00001 


146 


00221 


4 


41 


00222 


147 


00222 


4 


37 


00313 


148 


C0223 


4 


35 


00354 


149 


00224 


4 


36 


00353 


150 


00225 





46 


00200 


151 


00226 


4 


55 


00313 


152 


00227 





46 


01000 


153 


00230 





46 


00400 


154 


00231 


4 


76 


00354 


155 



L8ADE 



ATF1 



ATAK 



NOD 


12 


LDE 




LDX 


TX 


SKN 


RS.4 


BRR 


EXIT 


FLN 




BHR 


EXIT 


LCA 


EXP,4 


LDB 


ARG, A 


LDX 


ARG+1,4 


BRM 


ATAN,4 


SKN 


FLAG 


BRU 


$ + 6,4 


XXA 




CNA 




XXA 




RSH 


1.2 


BRU 


TESTF+2*4 


SKN 


XS 


BRU 


L8ADE*4 


XXA 




CNA 




XXA 




RSH 


2.2 


BRU 


TESTXS+2.4 


PZE 




SKG 


M20,4 


BRU 


RETURN, 4 


XXA 




RSH 


1 


BRX 


$+1.4 


STX 


EXP,4 


STA 


ARG+1,4 


STB 


ARG, 4 


CXA 




ADD 


EXP, 4 


CNA 




CAX 




LDA 


ARG+i,d 



PACK EXPONENT 
RcSTBRE INDEX 
AFFIX SIGN TO RESULT 

PUT IN RIGHT QUAD. 



GET ARCTAN 



SCALE AT 1 
EXIT THRU MAIN 
TEST SIGN OF X 



LINK 



SCALE AT 2 

EXIT THRU MAIN LINK 

AKCTAN SUBROUTINE 

EXIT IF-ARG SMALL 



I 



00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 



01 

35 
36 
01 

66 
46 
55 
46 



4 57 



01 
66 
46 
55 
46 
57 
01 
66 
46 
55 
46 
57 
01 
71 
67 
51 
46 
51 
46 
72 
01 
46 
73 
01 



4 62 
46 
4 62 
2 46 
4 01 
46 



00353 
00356 
00355 
00347 
00000 
00014 
00345 
00014 
00346 
00355 
00000 
00014 
00343 
00014 
00344 
00355 
00000 
00014 
00341 
00014 
00342 
00353 
00313 
10003 
00214 
00600 
00214 
00600 
00303 
00300 
00600 
00363 
00043 
00363 
00014 
00362 
0001 4 
00044 
00600 



156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
i92 
193 
194 



DPM 
STA 
STB 
DPM 
RSH 
XAB 
ADD 
XAB 
ADC 
DPM 
RSH 
XAB 
ADD 
XAB 
ADC 
DPM 
RSH 
XAB 
ADD 
XAB 
ADC 
DPM 
LDX 
N9D 
BRR 
RETURN XXA 
BRR 
XXA 
SKA 
BRU 
XXA 
SKG 
BRU 
XMA 
XAB 
XMA 
RCH 
BRU 
XXA 



XCHNG 



ARG,4 

ARGSQ+!*4 

ARGSQ*4 

C7*4 

0*2 

C5*4 

C5*l*4 

ARGSQ,4 

0*2 

C3*4 

C3+l*4 
ARGSGU4 

0*2 

Cl*4 

Cl+1,4 

ARG,4 
EXP,4 

3 
ATAN,4 

ATAN,4 

6P377,4 
ATF2,4 

Y4l,4 
SET-1,4 
Y + 1,4 

Y,4 
014*2 
SET, 4 



SQUARE ARGUMENT 



EVAL POLYNOMIAL 



X LARGER 



Y STILL LARGER 
EXCHANGE X AND Y 



SET FLAG POSITIVE 



ATF2 



00301 


4 01 00273 


00302 


02000000 


00303 


00000377 


00304 


04000000 


00305 


01000000 


00306 


06000000 


00307 


00040000 


00310 


10000000 


00311 


777777SA 


00312 


12000000 


00313 




00314 


14000000 


00315 




00316 


16000000 


00317 




00320 


20000000 


00321 


51525434 


00322 


U1772556 


00323 


77113111 


o^ 00324 


03726672 


oo 00325 


20362372 


00326 


05573031 


00327 


01260706 


00330 


07326147 


00331 


25737024 


00332 


10740027 


00333 


21446440 


00334 


12227437 


00335 


42570240 


00336 


13400517 


00337 


52104070 


00340 


14441766 


00341 


77777550 


00342 


37777777 


00343 


25252610 


00344 


65252525 


00345 


46314632 


00346 


063i463i 


00347 


33333362 



195 

196 
197 

198 
199 
200 
2U1 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 



TABLE BRU 
1E4 DATA 
QF377 DATA 

DATA 
1E5 DATA 

DATA 
1 E 9 DATA 
1E2 DATA 
M20 DATA 

DATA 
EXP 9SS 

DATA 
INTRVL BSS 

DATA 
RS BSS 

DATA 
ATN DED 

DED 

DED 

DED 

DED 

DED 

DED 

DED 

Cl DED 

C3 DED 

C5 DED 

C7 cED 



$-6,4 

002000000 

0377 

004000000 

l*/(23-5) 

006000000 

l*/<23-9> 

ciooooooo 

-20 

012000000 
1 
014000000 

1 

016000000 

1 

l*/(23-l ) 
.124354994547*/U7-1 



.244978663127*/(47-l 

.35877067027l*/U7-l 

.46 3647609001*/ 14 7-1 

.553599315344*/(47-l 

.6^3501 108793*/147-1 

.7l8829999622*/(47-l 

.785398163397*/(47-l 

.9999 99999999*/ 147-0 

-.333333333333*/<47-0> 

.2*/(47-0) 

-.142857142857*/ (47-0) 



.125*/(23-l ) 
.25*/(23-l) 
-375*/(23-l ) 
.5*/(23-l ) 
.625*/<23-l ) 
75*/<23-l ) 
875*/<23-l ) 



00350 
00351 
00352 
00353 
00355 
00357 
00360 
00361 
00362 
00364 
00365 
00366 
00367 
00370 



73333333 
53567520 
46674022 



00000000 
00000001 
40000000 
77777777 
00000364 



223 PI 



DED 



-3- 14 159265359*/ (47-2) 



224 


ARG 


BSS 


2 


225 


ARGSQ 


ess 


2 


226 


EXIT 


BSS 


1 


227 


TX 


BSS 


1 


228 


XS 


BSS 


1 


229 


Y 


BSS 


2 


230 


YS 


BSS 


1 


231 


ZER8 


DATA 





232 


6NE 


DATA 


01 


233 


SIGN 


DATA 


040000000 


234 


ONES 


DATA 


-1 


235 


FLAG 


EQU 


YS 


236 




END 





Ui 

i 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203034-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 



SOURCE 
LANGUAGE: 

USE: 



METHOD: 



COSINE, Double Precision - CSD 
W. S. LaSor. SDS 
26 April 1963 

Any SDS 920/930 Computer 

To compute the double precision cosine of a double precision 
argument in the A, B registers* 



SND (CSD, SND are contained in the same subroutine) 

Instructions and constants: 224 oct, 148 dec 

Uses temporary storage locations 13 thru 17, 

Argument in circles: 3. 59 - 3, 74 m. s. 

Argument in radians or degrees: 3.65 - 3.86 m. s. 

SYMBOL 

1. FUNCTION 

The double precision fixed~point cosine of the contents of 
A, B replaces the contents of A, B. The contents of X are 
unchanged. 

2. ARGUMENT 

See Program Description for SND. 

Use is made of the identity: 

cos X = sin (X + -|) 

by adding 1/4 to the argument. The subroutine then exits 
through SND. 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 



SOURCE 
LANGUAGE: 

USE: 



Catalog No. 203033-B 



SINE, Double Precision - SND 
W. S. LaSor, SDS 
26 April 1963 

Any SDS 920/930 Computer 

To compute the double precision sine of a double precision 
argument in the A, B registers. 



DPM 

Instructions and constants: 224 oct, 148 dec 

Uses temporary storage locations 13 thru 17. 

Argument in circles: 3.55 - 3.7 m.s. 

Argument in radians or degrees: 3.6 - 3.81 m.s. 

SYMBOL 

1. FUNCTION 

The double precision fixed point sine of the contents of A, B 
replaces the contents of A, B. The contents of X are unchanged. 

2. ARGUMENT 

The argument in the A, B registers is in standard double 
precision format and the units may be radians, degrees, or 
fractions of a circle. The address field of the programmed 
operator is used to define the units of the input argument. The 
address used for each set of units together with the required 
scaling are listed below: 
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Catalog No. 203033-B 



USE: (Cont.) 



Address 


Units 


Input 
Scaling 


00000 
00001 
00002 


radians 
circles 
degrees 


2 

-1 
8 



METHOD: 



—IT TT 

The argument is first reduced to the interval -j- < X < — 

and the result used to evaluate one of two approximations 
using the identities: 





Range 


1 




Sine Identity 


- TT 


< 


X 


< 


-3tt 
4 


-Sin (X +tt) 


-3tt 
4 


< 


X 


< 


TT 

4 


-Cos (X +^) 


-TT 

4 


< 


X 


< 


TT 

4 


Sin X 


TT 

4 


< 


X 


< 


3tt_ 
4 


Cos (X -|) 


4 


< 


X 


< 


TT 


-Sin (X - TT ) 



The approximations listed below are modified Taylor's series: 

Bin-~~-= C,X+ C , X 3 + C ■ X 5 + C -X 7 + C X 9 

4 13 5 7 9 

cos -^ = C Q + C 2 X 2 + C 4 X 4 + C 6 X 6 + C 8 X 8 + C 10 X 10 



for-1 < X< 1, where: 



C Q = .999,999,999,999,944 

C = .785,398, 163,378, 792 

C =-.308,425,137,530,000 

C = -.080,745, 511,814, 982 

C = .015,854,344,196,643 
4 

C = . 002, 490, 392, 478, 234 
5 
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Catalog No. 203033-B 



METHOD: {Cont. ) C 6 = " # ° 00, 325, 991 • 685, 657 

C =-.000,036,571,416,916 



C_ = .000,003,590,472,284 

o 

C = .000,000,308,563,132 
C = -. 000, 000, 024, 266, 335 

The maximum absolute error does not exceed 10 " 12 in 
magnitude. 
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I 

t»1 



00000 
00001 
00002 
00003 
00004 

00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 



37 
4 43 
4 55 
02 
4 01 



37 
43 
35 
46 
67 
46 
76 
23 
01 
01 
01 
01 
01 
01 
01 
01 
46 
17 
55 
46 
17 
57 
67 
35 
36 



1 02 

35 



36 
02 

46 

55 



00015 
00147 
00165 
20001 
000O7 

00015 
00147 
00017 
00022 
20003 
00060 
00017 
00015 
00033 
00102 
00102 
00025 
00025 
00070 
00070 
00033 
00014 
00223 
00222 
00014 
00166 
00221 
00001 
00020 
00017 
00017 
00022 
00021 
0Q2U 
00014 
00205 



1 


$CSD 


POPD 


012700000 


2 


CSD 


STX 


TX 


3 




BRM 


CNVRT,4 


4 




ADD 


P90.4 


5 




ROV 




6 




BRU 


SND+2,4 


7 


$SNE 


POPD 


C12600000 


8 


SKD 


STX 


TX 


9 




BRM 


CNVRT,4 


10 




STA 


ARG 


11 




RCH 


022 


12 




LCY 


3 


13 




XXB 




14 




LEA 


ARG 


15 




EXU 


TABLE, 6 


16 


TABLE 


BRU 


INT3,4 


17 




BRU 


INT4,4 


18 




BRU 


INT4,4 


19 




BRU 


INTl,4 


20 




BRU 


I N T i , 4 


21 




BRU 


INT2,4 


22 




RRU 


INT2,4 


23 




BRU 


INT3,4 


24 


IM1 


XAB 




25 




E9R 


ONES 


26 




ADD 


ONE 


27 




XAB 




28 




EOR 


Kl*4 


29 




ADC 


ZERO 


30 


IM3 


LSH 


1 


31 




STA 


ARG+i 


32 




STB 


ARG 


33 




DPM 


ARG 


34 




STA 


ARGSG+1 


35 




STB 


ARGSQ 


36 




DPM 


C9*4 


37 




XAB 




38 




ADD 


C7*4 



SAVE X 

CONVERT TO CIRCLES 

ADD 90 DEGREES 

EXIT THRU SND 

SAVE X 

CONVERT TO CIRCLES 

CBX + CLB 

LOCATE SUBINTERVAL 



GO TO PROPER SUBR 
BRANCH TABLE 



SUBTRACT 180 DEG 
NEGATE 



SCALE ARG AT 1 



SJUARE ARGUMENT 



EVAL POLYNOMIAL 






00044 
00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 



46 00014 
4 57 00206 

1 02 00021 
46 00014 
4 55 00201 

46 OOOM 
4 57 00202 

1 02 00021 
46 00014 
4 55 00175 

46 0001 4 
4 57 00176 

1 02 00021 
46 00014 
4 55 00171 

46 00014 
4 57 00172 

1 02 00017 
71 00015 
51 00016 
4 55 00165 
4 43 00106 
46 00014 
46 01000 
46 00014 
52 00223 
55 00222 
46 01000 
71 00015 
51 00016 
4 54 00165 
4 43 00106 
71 00015 
51 00016 
00 OOOOQ 
67 00001 
35 00020 

36 00017 

1 02 00017 



39 
40 
41 

42 
43 
44 
45 
46 
47 
48 
49 

50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 



IM2 



IM4 



cos 



XAB 




ADC 


C7 + U4 


DPM 


ARGSQ 


XAB 




ADD 


C5#4 


XAB 




ADC 


C5+U4 


DPM 


ARGSG 


XAB 




ADD 


C3*4 


XAB 




ADC 


C3+l#4 


DPM 


ARGSQ 


XAB 




ADD 


Cl*4 


XAB 




ADC 


Cl+1,4 


DPM 


ARG 


LDX 


TX 


BRR 


EXIT 


ADD 


P90,4 


BRM 


COS, 4 


XAB 




CNA 




XAB 




SKB 


ONES 


ADD 


ONE 


CNA 




LDX 


TX 


BRR 


EXM 


SUB 


P90,4 


BRM 


COS, 4 


LDX 


TX 


BRR 


EXIT 


PZE 




LSH 


1 


STA 


ARG + l 


STB 


ARG 


DPM 


ARG 



SINE AT 1 

RESTORE X 

ADD 90 DEGREES 
EVALUATE C6SINE 
NEGATE 



RESTORE X 

SUBTRACT 90 DEGREES 
EVALUATE COSINE 
RESTORE X 

COSINE SUBROUTINE 
SCALE ARG AT 1 



SuUARE ARG 



I 



00113 





35 


00022 


78 


STA 


ARGSQ+1 


00114 





36 


00021 


79 


STB 


ARGSQ 


00115 


5 


02 


00213 


80 


DPM 


CIO, 4 


00116 





46 


oooi^ 


81 


XAB 




00117 


4 


55 


00207 


82 


ADD 


C3*4 


00120 





46 


00014 


83 


XAB 




00121 


4 


57 


00210 


84 


ADC 


C3+l,4 


00122 


1 


C2 


00021 


85 


DPM 


ARGSQ 


00123 





46 


00014 


86 


XAB 




00124 


4 


55 


00203 


87 


ADD 


C6*4 


00125 





46 


00014 


88 


XAB 




00126 


4 


57 


00204 


89 


ADC 


C6+l,4 


00127 


1 


02 


00021 


90 


DPM 


ARGSQ 


00130 





46 


00014 


91 


XAB 




00131 


4 


55 


00177 


92 


ADD 


C4*4 


00132 





46 


00014 


93 


XAB 




00133 


4 


57 


00200 


94 


ADC 


C4*l,4 


00134 


1 


02 


00021 


95 


DPM 


ARGSQ 


00135 





46 


00014 


96 


XAB 




00136 


4 


55 


00173 


97 


ADD 


C2*4 


00137 





46 


00014 


98 


XAB 




00140 


4 


57 


00174 


99 


ADC 


C2 + U4 


00141 


1 


02 


00021 


100 


DPM 


ARGSQ 


00142 





46 


00014 


101 


XAB 




00143 


4 


55 


00167 


102 


ADD 


C0#4 


00144 





46 


00014 


103 


XAB 




00145 


4 


57 


00170 


104 


ADC 


C0+l,4 


00146 


4 


51 


00106 


105 


BRR 


COS, 4 


00147 





00 


00000 


106 CNVRT PZE 




00150 





71 


00000 


107 


LDX 





00151 





37 


00016 


108 


STX 


EXIT 


00152 





71 


00015 


109 


LDX 


TX 


00153 





77 


40000 


110 


EAX 


*0 


00154 





46 


00600 


111 


XXA 




00155 





72 


00222 


112 


SKA 


ONE 


00156 


4 


01 


00163 


113 


BRU 


$♦5.4 


00157 





46 


00600 


114 


XXA 




00160 


7 


02 


00215 


115 


DPM 


FACTOR, 6 


00161 





67 


20001 


116 


ICY 


1 



EVAL POLYNOMIAL 



COSINE AT 1 

UNITS CONVERSION SUBR. 
SAVE RETURN 



GET UNITS ADDRESS 
TEST FOR CIRCLES 

SCALE AT -l 



I 

00 



00162 
00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
002C0 
00201 
002C2 
00203 
00204 
002C5 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 



00221 
00222 



4 51 00147 

46 00600 

4 51 00147 

20000000 

37777777 

77776470 

17777777 

24203210 

31103755 

66205550 
54205414 
15564550 
65524206 
01644416 
04036037 
64375113 
C1214656 
21370074 
77525054 
67534165 
77731515 
17301301 
00007417 
50446636 
00001226 
61565706 
77777627 
5562^520 
24276301 
26575270 
26602660 
00000015 
00000016 
00000017 
00000021 
0C00000C 
00000001 



117 BrtP CNVRT,4 

na xxa 

119 BRR C-\VRT*4 

120 P<?0 DATA W<23-1> 

121 Kl DATA 037777777 

122 CC DED .99999999999*/<47-l > 

123 CI DED .785396l63379*/l47-0) 

124 C2 DED -.308425137530*/(47 + l ) 

125 C3 DED -.0807455118l5*/(47+2> 

126 CA DED .Ql5854344196*/147*3> 

127 C5 DED .QC2490392473*/i47+4) 

128 C6 DED -.0Q03259916857*/<47+5) 

129 C7 DED -.00003657l4l7*/<47+6> 

130 Cfi DED .0000035904723*/ (47 + 7 ) 

131 C9 DED .OOoo00308563*/U7 + 8) 

132 CIO DED -.0000000242663*/U7 + *> 

133 FACT6P DED . 1 591 54943092* /< 47+2 ) 

134 DED .0027777777777*/(47+8) 

135 TX EUU 13 

136 EXIT EQU 14 

137 ARG EQU 15 

138 ARGSG EQU \7 

139 ZEKB DATA 

140 8KE DATA CI 

l ** l unto U*iM " I 

14 2 END 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 

Catalog No. 203028-C 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 



SOURCE 
LANGUAGE: 

USE: 



METHOD: 



COSINE, Floating - CSF 
W. S. LaSor, SDS 
1 7 January 1 964 

Any SDS 920/930 Computer 

To compute the floating point cosine of the contents of the 
A, B registers. 



SNF (SNF and CSF are contained in the same subroutine) 

Instructions and constants: 331 oct, 217 dec 

Argument in circles: 4.35 - 4.65 m.s. 

Argument in radians or degress: 5.15 - 5.45 m.s. 

SYMBOL 

1. FUNCTION 

The double precision floating point cosine of the contents of 
A, B replaces the contents of A, B. The contents of X are 
unchanged. 

2. ARGUMENT 

See Program Description for SNF. 

Use is made of the identity: 

Cos X = Sin (X + j) 

by adding the appropriate constant to the argument. The 
subroutine then exits through SNF. The error statement 
for SNF applies to CSF as well. 
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SDS 900 SERIES PROGRAM LIBRARY 

PROGRAM DESCRIPTION 

Catalog No. 203027-C 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 



SOURCE 
LANGUAGE: 

USE: 



1. 



2. 



SINE, Floating Point - SNF 
W. S. LaSor, SDS 
17 January 1964 

Any SDS 920/930 Computer 

To compute the floating point sine of the contents of the 
A, B registers. 

DPM, FLM 

Instructions and constants: 331 oct, 217 dec 

Argument in Circles: 4.2 - 4.5 m.s. 

Argument in Radians or Degrees: 5.0 - 5.3 m.s. 

SYMBOL 

FUNCTION 

The floating point sine of the contents of the A, B registers 
replaces the contents of A, B. The contents of X are unchanged. 

ARGUMENT 

The argument in the A, B registers is in standard double 
precision floating point format. The units may be radians, 
degrees, or fractions of a circle. The address field of the 
programmed operator is used to define the units as follows: 



ADDRESS 


UNITS 


00000 
00001 
00002 


radians 

fractions of a circle 
degrees 
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Catalog No. 203027C 



METHOD: 



The argument is first reduced to the range -tf^ X < W 
(one period). The result is then further reduced to the 
interval ~ ff ^ X ^ "^ and used to evaluate one of two 

T" 4 

approximations as determined by the following identities; 



Rang* 



-tr <: X < 



-3ir 



4 ^ 4 



4 4 



4 4 



? 4* <" 



Identity 



-Sin (X + IT) 



-Cos (X + |) 



Sin X 



Cos (X - |) 



-Sin (X -7T) 



The approximations for sine and cosine are 

4 ^ 

2k* 1 



4 2k+l 



4 Q 2k 



- 



1 £ X £ 1 



J 



where: 



10 



. 999, 999, 999, 999, 944 
. 785, 398, 163, 378, 792 
. 308, 425, 137, 530, 000 
. 080, 745, 511, 814, 982 
. 015,854, 344, 196, 643 
. 002,490, 392,478, 234 
. 000, 325, 99i, 685, 657 
. 000, 036, 571, 416, 916 
. 000, 003, 590,472, 284 
. 000, 000, 308, 563, 132 
. 000, 000, 024, 266, 335 
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METHOD: (cont. ) 



The maximum relative computational error, E , 
satisfies: 



E 



R 



sin X - sin X 



sin X 



< 6 x 10 



-11 



where sin X denotes the computed value of sin X. In 
addition, however, error arises from loss of significance 
in the argument as X increases and as X approaches 
zeros of sin X (cos X). This error is due to the periodic 
nature of the sine (cosine) function and not to the ^q 
computational method. For arguments exceeding 2 in 
absolute value, all significance vanishes and the value 
zero will be returned. 
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VI 

I 



00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 

00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 

00042 
00043 







4 

4 

2 
4 

2 
4 


4 







4 



4 



4 



4 

4 

4 





2 

C 

46 

67 

46 

76 

6 23 



37 
71 
37 
43 
74 
01 
46 
66 
01 
46 
67 
55 
71 
46 
01 

37 
71 

37 
43 
46 
37 
74 
01 
46 
62 
55 
6? 
35 
36 
66 
35 



00324 
00000 
00322 
00243 
00330 
00011 
00102 
00000 
00013 
00102 
00000 
00261 
00330 
00140 
00024 

00324 
00000 
00322 
00243 
00120 
00323 
00330 
"0044 
U0102 
00323 
00260 
00323 
00317 
00316 
00000 
00320 
00022 
20003 
00060 
00320 
00053 



1 $Ci 


SF POPD 


012700000 


2 CSF STX 


Tx 


3 


LDX 





4 


STX 


EXIT 


5 


BRM 


CNVRT,4 


6 


SKD 


ONES 


7 


BRU 


$ + 4,4 


8 


PCH 


0102 


9 


RSH 


0,2 


10 


bru 


$ + 3,4 


11 


RCH 


0102 


12 


LSH 


0.2 


13 


ADD 


P90,4 


14 


LDX 


ONES 


15 


LDE 




16 


BRU 


SNF+5,4 


17 $SNF POPD 


012600000 


18 SNF STX 


TX 


19 


LDX 





20 


STX 


EXIT 


21 


BRM 


CNVRT,4 


22 


RCH 


0120 


23 


STX 


EXP. 4 


24 


SKD 


8NES 


25 


BRU 


LEFT, 4 


26 


RCH 


0102 


27 


XHA 


EXP, 4 


28 


ADD 


P3*4 


29 


XMA 


EXP, 4 


30 


STA 


ARG+l 


31 


STB 


ARG 


32 


RSH 


0*2 


33 SAVE STA 


TA 


34 


RCH 


022 


35 


LCY 


3 


36 


XXB 




37 


LDA 


TA 


38 


EXU 


TABLE, 6 



SAVE X 
SAVE RETURN 

CONVERT TO CIRCLES 



CLEAR EXPONENT 
SCALE RIGHT 



SCALE LEFT 
ADD 90 DEGREES 
ScT EXPONENT 

EXIT THRU SNF 

SAVE X 
SAVE RETURN 

CONVERT TO CIRCLES 
EXTRACT EXPONENT 

UNFLOAT ARG 
GO SCALE LEFT 
CLEAR EXPONENT 



SCALE RIGHT 

CriX + CLB 

LOCATE SUBINTERVAL 



GO TO PROPER SUBR. 






00044 
00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
001C7 
00110 

A A « « J 

00112 



46 
67 
35 
36 
71 
37 
01 
01 
01 
01 
01 
01 
01 
01 
01 
46 
17 
55 
46 
17 
57 
01 
55 
43 
46 
46 
46 
52 
55 
46 
71 
67 
46 
71 
51 
76 
75 
7i 
67 



00102 
00000 
00317 
00316 
00257 
00323 
00036 
00107 
00122 
00122 
00063 
00063 
00072 
00072 
00107 
00014 
00330 
00326 
00014 
00256 
00325 
00111 
00261 
00177 
00014 
01000 
00014 
00330 
00326 
01000 
00326 
10002 
00140 
00324 
00322 
00317 
00316 
00323 
10030 



39 
40 
41 
42 
43 
44 
45 
46 

48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7 4 
75 
76 
77 



LEFT 



TABLE 



IKT1 



IKT2 



INT3 



RCH 


0102 


LSH 


0*2 


STA 


ARG+1 


STB 


ARG 


LEX 


P2»4 


STX 


EXP, 4 


BRU 


SAVE, 4 


BRU 


INT3,4 


BRU 


INT4,4 


BRU 


INT4,4 


BRU 


INTU4 


BRU 


INTU4 


BRU 


INT2,4 


BRU 


INT2,4 


BRU 


INT3,4 


XAB 




EOR 


ONES 


ADD 


ONE 


XAB 




EOR 


Kl#4 


ADC 


ZER9 


BRU 


INT3+2*4 


ADD 


P90.4 


BRM 


COS, 4 


XAB 




CNA 




XAB 




SKB 


ONES 


ADD 


ONE 


CNA 




LDX 


ONE 


NOD 


2 


LEE 




LDX 


TX 


BRR 


EXIT 


LDA 


ARG+i 


LDB 


ARG 


LDX 


EXP, 4 


N8D 


24 



CLEAR EXPONENT 
SCALE LEFT 



SET EXPONENT TO 2 



BRANCH TABLE 



SUBTRACT 180 DEG. 
NEGATE 



EXIT THRU SINE LINK 
ADD 90 DEGREES 
EVALUATE COSINE 
NEGATE 



NORMALIZE RESULT 
RESTORE X 
RtiCALL ARGUMENT 

NORMALIZE 



I 

SI 



00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
C0160 
00161 



46 
73 
01 
76 
75 
71 
51 
54 
43 
01 
46 
35 
36 
37 
46 
55 
46 
46 
76 
02 
02 
40 
01 
35 
36 
02 
66 
46 
55 
46 
57 
02 
66 
46 
55 
46 
57 
02 
66 



00600 
00325 
00125 
00263 
00262 
00324 
00322 
00261 
00177 
00102 
00600 
00317 
00316 
00323 
00200 
00323 
01000 
00400 
00317 
20001 
00316 
20001 
00240 
00321 
00320 
00312 
00000 
00014 
00306 
00014 
00307 
00320 
00000 
00014 
00302 
00014 
00303 
00320 
00000 



78 

75 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

HI 

112 

113 

114 

115 

116 



IM4 



SINE 



RET 



XXA 




SKG 


ZERO 


BRU 


SINE, 4 


LDA 


ANS+l,d 


LDB 


ANS,4 


LDX 


TX 


6RP 


EXIT 


SUB 


P90,4 


BRM 


COS, 4 


BRU 


INT2+8,4 


XXA 




STA 


ARG + l 


STB 


ARG 


STX 


EXP, 4 


CXA 




ADD 


EXP,4 


CNA 




CAX 




LDA 


ARG + 1 


R9V 




DPM 


ARG 


OVT 




BRU 


LOAD, 4 


STA 


ARGSO+1 


STB 


ARGSQ 


DPM 


C9,4 


RSH 


0,2 


XAB 




ADD 


C7,4 


XAB 




ADC 


C7+l,4 


DPM 


ARGSQ 


RSH 


0,2 


XAB 




ADD 


C5*4 


XAB 




ADC 


C5+l,4 


DPM 


ARGSQ 


RSH 


0,2 



TEST EXP GTR 
GO COMPUTE SINE 
SET TO SQRT HALF 

RESTORE X 

SUBTRACT 90 DEGREES 
EVALUATE CeSINE 
FLOAT AND EXIT 

SAVE ARGUMENT 



EXPONENT OF ARGSQ 
SCALE TO X 



FORM ARGSQ 

TEST FOR -1 AT 



EVAL POLYNOMIAL 



I 

00 



00162 





46 


00014 


1 17 


XAB 




00163 


4 


55 


00276 


118 


ADD 


C3*4 


00164 





46 


00014 


119 


XAB 




00165 


4 


57 


00277 


120 


ADC 


C3 + W4 


00166 


1 


02 


00320 


121 


DPM 


ARGSQ 


Q0167 


2 


66 


00000 


122 


RSH 


0*2 


00170 





46 


00014 


123 


XAB 




00171 


4 


55 


00272 


124 


ADD 


Cl*4 


00172 





46 


00014 


125 


XAB 




00173 


4 


57 


00273 


126 


ADC 


Cl+1,4 


00174 


1 


02 


00316 


127 


DPM 


ARG 


00175 


4 


71 


00323 


128 


LDX 


EXP, 4 


00176 


4 


01 


00103 


129 


BRU 


INT2+9,4 


00177 





00 


ooooo 


130 ces PZE 




00200 





67 


00001 


131 


LSH 


1 


00201 





35 


00317 


132 


STA 


ARG+1 


00202 





36 


00316 


133 


STB 


ARG 


00203 


1 


02 


00316 


134 


DPM 


ARG 


00204 





35 


00321 


135 


STA 


ARGSQ+1 


00205 





36 


00320 


136 


STB 


ARGSO 


00206 


5 


02 


00314 


137 


DPM 


Cl0,4 


00207 


G 


46 


00014 


138 


XAB 




00210 


4 


55 


00310 


139 


ADD 


C8»4 


00211 





46 


00014 


140 


XAB 




00212 


4 


57 


00311 


141 


ADC 


C8+l,4 


00213 


1 


02 


00320 


142 


DPM 


ARGSQ 


00214 





46 


00014 


143 


XAB 




00215 


4 


55 


00304 


144 


ADD 


C6*4 


00216 





46 


00014 


145 


XAB 




00217 


4 


57 


00305 


146 


ADC 


C6+l,4 


00220 


1 


02 


00320 


147 


DPM 


ARGSQ 


00221 


G 


46 


00014 


148 


XAB 




00222 


4 


55 


00300 


149 


ADD 


C4*4 


00223 





46 


00014 


150 


XAB 




00224 


4 


57 


00301 


151 


ADC 


C4+l,4 


00225 


1 


02 


00320 


152 


DPM 


ARGSQ 


00226 





46 


00014 


153 


XAB 




00227 


A 


55 


00274 


154 


f*. U Ll 




00230 





46 


00014 


155 


XAB 





FLOAT AND EXIT 
COSINE SUBROUTINE 



SQUARE ARGUMENT 



EVAL POLYNOMIAL 



00231 


4 


57 


00275 


00232 


1 


02 


00320 


00233 





46 


00014 


00234 


4 


55 


00270 


00235 





4 6 


00014 


00236 


4 


57 


00271 


00237 


4 


51 


00177 


00240 


4 


76 


00256 


00241 





75 


00330 


00242 


4 


01 


00142 


00243 


U 


00 


00000 


00244 





71 


00324 


00245 





77 


40000 


00246 





46 


00600 


00247 





72 


00326 


00250 


4 


01 


00254 


00251 


U 


46 


00600 


00252 


7 


03 


00264 


00253 


4 


51 


00243 


00254 





46 


00600 


00255 


4 


51 


00243 


00256 


37777777 


00257 


00000002 


00260 


00000003 


00261 


20000000 


00262 


46376000 


00263 


26501 


U71 


00264 


5562; 


17 7 6 


00265 


24276301 


00266 


26604770 


00267 


266C2660 


00270 


77777664 


00271 


17777777 


00272 


24203210 


00273 


31103755 


00274 


66205540 


00275 


54205414 



156 ADC C2+l*4 

157 DPM ARGSQ 

158 XAB 

159 ADD C0*4 

160 XAB 

161 ADC C0+l*4 COSINE AT 1 

162 BRR COS, 4 

163 LOAD LDA Kl*4 NEGATE 

164 LDB ONES 

165 BRU RET, 4 

166 CKVRT PZE UNITS CONVERSION SUBR 

167 LDX TX 

168 EAX *0 GET UNITS ADDRESS 

169 XXA 

170 SKA ONE TEST F8R CIRCLES 

171 BRU $+4,4 

172 XXA RADIANS OR DEGREES 

173 FLM FACTOR, 6 CONVERT 

174 BRR CNVRT.,4 



175 XXA 

*° 00255 4 51 00243 176 BRR CNVRT,4 

177 Kl DATA 037777777 

178 P2 DATA 2 

179 P3 DATA 3 

180 P90 DATA l*/(23-l> 

181 AKS DED .707106781187 

182 FACTOR DED .159154943092 

183 DED .0027777777778 

184 CC DED .999999999999*/ (47-1 ) 

185 Cl DED .785398l63379*/U7-0> 
166 C2 DED -.30842513753*/l47 + l ) 



si 
I 



00276 


43335132 


00277 


75325041 


00300 


01644416 


00301 


04036037 


00302 


73217644 


00303 


00050632 


00304 


21370074 


00305 


77525054 


00306 


1567534? 


003C7 


77777315 


00310 


17301301 


00311 


00007417 


00312 


45521115 


00313 


OOOC0002 


00314 


61565706 


00315 


77777627 


00316 




00320 




00322 




00323 




00324 






00000320 


00325 


00000000 


00326 


00000001 


00327 


40000000 


00330 


77777777 



187 

188 

189 

190 

191 

192 

193 

194 

195 

196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 



C3 
C4 
C5 

ce 

C7 

ce 

C9 

CIO 

ARG 

ARGSQ 

EXIT 

EXP 

TX 

TA 

ZE*e 

ONE 

SIGN 

9NES 



PAGE 
DED 

DED 

DED 

DED 

DED 

DED 

DED 

DED 

9SS 

BSS 

BSS 

BSS 

BSS 

EQU 

DATA 

DATA 

DATA 

DATA 

END 



-.08074551 1815*/ (47-0) 

.0l5854344196*/U7 + 3> 

.002490392478*/ I 47-0) 

-.0003259916857*/ (47+o) 

-.000036571417*/ (47-0) 

.0000035904723*/ (47+7) 

.000000308563*/ (47-0) 

-.0000000242663*/ (47+9) 

2 
2 
1 
1 

1 

ARGSG 



01 

040000000 

-1 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203018-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 

PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 

USE: 



METHOD: 



COS of A - COS 
W. S. LaSor, SDS 
19 February 1963 

Any 920/930 Computer 

To compute the cosine of an argument in the A register. 

SIN (COS and SIN are contained in the same subroutine) 
Instructions and constants: 40 oct, 3 2 dec 
Uses temporary storage locations 10 thru 12. 
464 - 504 (jisec 

SYMBOL 

FUNCTION 

The cosine of the contents of A replaces the contents of A. 
The address field is not used. 

ARGUMENT 

See program description for SIN of A. 

Use is made of the identity: 

cos X = sin (X + 90) 

by adding 90 degrees to the argument. The subroutine then 
exits through SIN. 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203006-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 

PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 



USE: 



SIN of A - SIN 
W. S. LaSor, SDS 
19 February 1963 

Any 920/930 Computer 

To compute the sine of an argument in the A register. 

None 

Instructions and constants: 40 oct, 3 2 dec 
Uses temporary storage locations 10 thru 12. 
448 - 488 |Jisec 

SYMBOL 



1. FUNCTION 

The sine of the contents of A replaces the contents of A, 
The address field is not used. 

2. ARGUMENT 



The argument is in fractions of a circle scaled at Q = 
Thus: 

40000000 = -180° 

60000000 = - 90° 

00000000 = 0° 

20000000 = 90° 

37777777= 179.99998°, etc. 



-1. 
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USE: (Cont. ) On exit, the sine is in A scaled at Q = 1. The B and 

X registers are unchanged. 

METHOD: The argument is first reduced to either the first of 

fourth quadrants and the result used to evaluate: 

D Y 2k-1 

2k- 1 

where: 

C = 1.5707963 
C = -.64596371 

C = .07968968 

5 

C = -.00467377 

C = .00015148 

-6 
Maximum absolute error is less than 10 
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00000 4 55 00030 



00 

i 

4*- 



00001 
00002 
00003 

oonc-4 

00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 



00037 



36 00013 
4 73 00030 
4 73 00031 
4 01 00024 
35 00012 
64 00012 
35 00014 
4 64 00036 
4 55 00035 
64 00014 
4 55 00034 
64 00014 
4 55 00033 
64 00014 
4 55 00032 
64 00012 
67 0000? 
75 00013 
51 00000 
02 20001 
46 01000 
17 00037 
4 01 00005 
20000000 
57777777 
14441767 
53250420 
12146426 
75466632 
00236660 
00000012 
00000013 
00000014 
40000000 



1 


$C0S 


P8PD 


012700000 


2 


ces 


ADD 


P90,4 


3 


$S1N 


POPD 


012600000 


4 


SIN 


STB 


TB 


5 




SKG 


P90#4 


6 




SKG 


M90,4 


7 




9RU 


REDUCE, 4 


8 


EVAL 


STA 


TA 


9 




MUL 


TA 


10 




STA 


ARGSQ 


11 




MUL 


C9*4 


12 




ADD 


C7#4 


13 




MUL 


ARGSQ 


14 




ADD 


C5*4 


15 




MUL 


ARGSQ 


16 




ADD 


C3»4 


17 




MUL 


ARGSQ 


18 




ADD 


Cl#4 


19 




MUL 


TA 


20 




LSH 


2 


21 




LDB 


T3 


22 




9R* 





23 


REDUCE 


E9M 


020001 


24 




CNA 




25 




F9R 


SIGN 


26 




6RU 


EVAL, 4 


27 


P90 


DATA 


020000000 


28 


MQO 


DATA 


057777777 


29 


CI 


DATA 


014441767 


30 


C3 


DATA 


053250420 


31 


C5 


DATA 


012146426 


32 


C7 


DATA 


075466632 


33 


C9 


DATA 


0236660 


34 


TA 


EQU 


10 


35 


TB 


EOU 


11 


36 


ARGSQ 


EQU 


12 


37 


SIGN 


DATA 


0400G0000 


38 




END 





ADD 90 DEGREES 

SAVE 3 REGISTER 

LdCATE QUACRANT 

2ND 6* 3RD 

1ST PR 4TH 



EVAL P8LYN6MIAL 



SCALE AT 1 
RESTORE B 

RESET eVFLe 
REDUCE QUDRANT 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203035-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 

USE: 



METHOD: 



Square Root, Fixed, Double - DSQ 
RichardS. Resnick, SDS 
22 March 1963 

Any SDS 920/930 Computer 

To extract the square root of the double precision argument 
in the A, B registers. 



None 

Instructions and constants: 122 oct, 82 dec 
Uses temporary storage locations 12 thru 15, 

1.112 to 1. 320 milliseconds 



SYMBOL 

The root of the argument replaces the argument in A, B. The 
argument is a double precision fixed point number in A, B. 
The sign and 23 most significant bits are in A (A thru A ) 
and the 24 least significant bits are in (B thru B° ). The 3 
X register is unchanged. 

The argument is inspected for the interval in which it lies. 
The intervals are designated by subscipt i and are: 



i = 

i = 1 

i = 2 

i = 3 

i = 4 

i = 5 

i = 6 

i = 7 



5/16 > A > 1/4 
3/8 > A > 5/16 
7/16 > A > 3/8 
1/2 > A > 7/16 
5/8 > A > 1/2 
3/4 >A > 5/8 
7/8 > A > 3/4 
1 > A > 7/8 
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th 
METHOD: (cont. ) The root is then approximated on the i interval by the 

polynomial: 



r = E CjiA J (i = thru 7) 

J=0 



o 



where: 

i = 



COO 


= 


. 1651632200 


CIO 


= 


. 8864482594 


C20 


= 


-. 5275337877 


C30 


= 


. 1879749603 


C01 


— 


. 1828018288 


Cll 


= 


. 8010519649 


C21 


= 


-. 3894905093 


C31 


= 


. 1134708047 


C02 


= 


. 1988250306 


C12 


= 


. 7365302516 


C22 


= 


-. 3027946859 


C3 2 


= 


. 0745999492 


C03 


= 


. 2136922437 


C13 


= 


. 6853650700 


C23 


= 


-. 2440563169 


C33 


~ 


. 0521059196 


C04 


= 


. 23357606 


C14 


= 


1. 25362715 


C24 


= 


-. 74604543 


C34 


= 


. 26 583673 


C05 


= 


. 25852082 


C15 


= 


1. 13285855 


C25 


= 


-. 55082276 


C35 


= 


. 16047195 


C06 


= 


. 28118105 


C16 


= 


1. 04061107 


C26 


= 


-. 42821635 


C36 


= 


. 10550026 


C07 


= 


. 30220646 


C17 


= 


. 96925257 


C27 


= 


-. 34514775 


C37 


= 


. 07368889 
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METHOD: (cont. ) r is accurate to at least 20 bits and represents a very 

good first approximation of the root. One Newton-Raphson 
interation is performed: 



r x = i/2 



[*-••} 



whe Tf : 



* is the first approximation accurate to at least 
° 20 bits. 

A is the argument in A, B. 

r is the final root, accurate to at least 40 bits. 

The polynomial renders the first approximation scaled 
at Q = 0. The argument is shifted right 1 bit for scaling 
purposes before the iteration is performed. A double 
precision divide is performed to form the quotient of: 

A 

r 



If the argument is negative, overflow is set and the 
program exits. If the argument is zero the program 
exits immediately. The original argument can be found 
in locations 12 and 13. 
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J. 



00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 



37 
71 
67 
73 
01 
35 



36 

46 



46 
46 
66 
35 
46 
67 
46 
64 
55 
64 
55 
64 
55 
62 
75 
66 
65 
35 
46 
65 
64 



55 
4 53 
67 
55 
02 
66 
71 
51 



00012 
00056 
10056 
00117 
00045 
00014 
00013 
00604 
01000 
00104 
20001 
00042 
00001 
00005 
00600 
00067 
00063 
00014 
00057 
00014 
00053 
00014 
00013 
00001 
00014 
00015 
10012 
00C14 
00120 
00015 
00042 
00001 
00014 
20001 
00000 
00012 
00000 



1 $CSQ PQPD 


013500000 


2 DSQ STX 


TX 


3 


LDX 


RSH, 4 


4 


NOD 


46 


5 


SKG 


= 


6 


BRU 


DS0l,4 


7 


STA 


AH 


8 


STB 


AL 


9 


RCH 


0604 


10 


CNA 




11 


RCH 


0104 


12 


RCY 


1 


13 


STA 


SCALED 


14 


CLA 




15 


LSH 


5 


16 


XXA 




17 


HUL 


C3-4,6 


18 


ADD 


C2-4,6 


19 


MUL 


AH 


20 


ADD 


Cl-4,6 


21 


MUL 


AH 


22 


ADD 


C0-4,6 


23 


XMA 


AH 


24 


LDB 


AL 


25 


RSH 


1 


26 


DIV 


AH 


27 


STA 


Q 


28 


9AC 




29 


DIV 


AH 


30 


MUL 


= 1 


31 


ADD 


Q 


32 


SKN 


SCALE*4 


33 


LSH 


1 


34 


ADD 


AH 


35 


E9M 


020001 


36 SCALE RSH 




37 


LDX 


TX 


38 


BRR 






SET RESCALE SHIFT 
NORMALIZE N PLACES 

AKG LEO 



XXA, CAB 
NEGATE A 
CABE 

FORM N/2 
STORE RSH N/2 



FIND RT 



EXCHANGE AH AND RT 



Ah,AL/RT 

Q EQU AH,AL/RT 

RtiMAINDER/RT 

COMPLETE DP DIVIDE 
TEST N EVEN SR 5DD 
N IS EVEN 
COMPLETE N-R ITER 

RcSet erVFLe 

RcSCALE RT 
EXIT 






00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
00061 
00O62 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
001C2 
00103 
00104 
00105 
00106 
001C7 
00110 
00111 
00112 
00113 



35 00014 
46 00200 
46 01000 
4 55 00056 
62 00014 
66 40014 
72 00121 
4 51 00054 
4 01 00043 
62327776 
07362716 
10213464 
10776675 
1 1527263 
50073333 
44200602 
41251603 
37010170 
50100625 
5627724/1 

62230065 
64751063 
10403360 
05105130 
0330041C 
02267243 
05222017 
05663014 
06271431 
06655106 
34273443 
31504337 
27443240 
25735013 
57074706 
63422455 
66237006 
70141303 
06007620 



39 DSGl STA Ah 

40 CXA 

41 CNA 

42 ADD RSH # 4 
4 3 X M A AH 

44 RSH *AH 

45 SKA =040000000 

46 3*R S,4 

47 9RU SCALE+1,4 

48 RSH DATA 062327776 

49 CC DATA 07362716 

50 DATA 010213464 

51 DATA 010776675 

52 DATA 011527263 

53 CI DATA 050Q73333 

54 DATA G44200602 

55 DATA 041251603 

56 DATA 037Q10170 

57 C5 DATA 050100625 
5fi DATA 056277244 

59 DATA 062230065 

60 DATA 064751063 

61 C3 DATA 010403360 

62 DATA 05105130 

63 DATA 03300410 

64 DATA 02267243 

65 DATA 05222017 

66 DATA 05663014 

67 DATA 06271431 
63 DATA 06655106 

69 DATA 034273443 

70 DATA 031504337 

71 DATA 027443240 

72 DATA 025735013 

73 DATA 057074706 

74 DATA 063422455 

75 DATA 066237006 

76 DATA 070141303 

77 DATA 06007620 



set evFLe 

LOAD X AND EXIT 



I 



00114 


03503066 


78 




DATA 


03503066 


00115 


02306176 


79 




DATA 


02306176 


00116 


01525550 


80 




DATA 


01525550 




00000012 


81 


TX 


EQU 


012 




00000013 


82 


AL 


EQU 


013 




00000014 


83 


AH 


ECU 


014 




00000015 


84 

85 


C 


EGU 

END 


015 


00117 


00000000 










00120 


00000001 










00121 


40000000 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203029-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 

USE: 



METHOD: 



Square Root, Floating, Double - FSQ 
Richard S. Resnick, SDS 
22 March 1963. 

Any SDS 920/930 Computer 

To extract the square root of the double precision argument 
in the A, B registers. 



None 

Instructions and constants: 107 oct, 71 dec 
Uses temporary storage locations 12 thru 15, 

1 . 056 to 1 . 080 milliseconds 



SYMBOL 

The root of the argument replaces the argument in A, B. 

The argument is a double precision floating point number in 

A, B with a 39 bit mantissa and 9 bit exponent field. The sign 

and 23 most significant bits of the mantissa are in A 

(A thru A ) and the 15 least significant bits of the mantissa 

are in B (B* thru B ). The exponent field is also in B 

(B thru B ). The X register is unchanged. 

The argument is inspected for the interval in which it lies. 
The intervals are designated by subscript i and are: 



i = 5/16 > A > 1/4 i = 4 

i = 1 3/8 > A > 5/16 i = 5 

i = 2 7/16 > A > 3/8 i = 6 

i = 3 1/2 > A .2 7/16 i = 7 



5/8 > A > 1/2 

3/4 > A > 5/8 

7/8 > A > 3/4 

1 > A > 7/8 
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th 

METHOD: (cont. ) The root is then approximated on the i interval by the 



polynomial: 



r = T CjiA J (i = thru 7) 



o 



where: 



J=0 



i = COO = . 1651632200 

CIO = .8864482594 
C20 = -. 5275337877 
C30 = . 1879749,603 

C01 = . 1828018288 
Cll = .8010519649 
C21 = -. 3894905093 
C31 = . 1134708047 

C02 = . 1988250306 
C12= .7365302516 
C22 = -. 3027946859 
C32= .0745999492 

C03 = . 2136922437 
C13 = .6853650700 
C23 = -. 2440563169 
C33 = .0521059196 

C04 = . 23357606 
C14 = 1. 25362715 
C24 = -. 74604543 
C34 = . 26583673 

C05 = . 25852082 
C15 = 1. 13285855 
C25 = -. 55082276 
C35 = . 16047195 

C06 = . 28118105 
C16 = 1.04061107 
C26 = -. 42821635 
C36 = . 10550026 

C07 = . 30220646 
C17 = . 96925257 
C27 = -.34514775 
C37 = . 07368889 
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Catalog No. 203029B 



METHOD: (Cont. ) r Q is accurate to at least 20 bits and represents a very 



good first approximation of the root. One Newton-Raphson 
iteration is performed: 



1 



1/2 



o 



where: 



r is the first approximation accurate to at least 
° 20 bits. 

A is the argument (mantissa) in A, B. 

r is the final root, accurate to at least 40 bits. 

The exponent of the root is formed by the algorithm: 

RE = 1/2 (AE + 1) 

The polynomial renders the first approximation scaled 
at Q = 1. The argument is shifted right 2 bits for scaling 
purposes before the iteration is performed. A double 
precision divide is performed to form the quotient of: 



If the argument is negative, overflow is set and the program 
exits. If the argument is zero the program exits immediatel 1 
The original argument can be found in locations 12 and 13. 
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1 $FSG P9PD 


014500000 


00000 





73 


00107 


2 FSQ SKG 


= 


00001 


4 


01 


00043 


3 


BRU 


FS0l,4 


00002 





37 


00014 


4 


STX 


TX 


00003 





35 


00013 


5 


STA 


AH 


00004 


c 


36 


00012 


6 


STB 


AL 


00005 





46 


00414 


7 


RCH 


0414 


00006 





67 


20004 


8 


LCY 


4 


00007 


4 


14 


00046 
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DATA 023 
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DATA 022100301 

DATA 020524702 

DATA 017404074 
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END 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 20301 9-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 

USE: 



METHOD: 



Square Root of A - SQR 
Richard S. Resnick, SDS 
26 December 1962 

Any SDS 920/930 Computer 

To extract the square root from the 24 most significant bits 
of an argument in the A, B registers. 



None 

Instructions plus constants: 124 oct, 84 dec 
Uses temporary storage locations 12 and 13. 

384 to 576 |j.sec 



SYMBOL 

Tne root of the argument replaces the first 24 significant 
bits of the argument in A, B. The argument is fixed point 
number of even Q in A, B. On exit the root is in A, B at 
Q/2. The X register is unchanged. 

The argument is normalized and inspected for the interval in 
which it lies. The intervals are designated by subscript i and 
are: 

i = 5/8 > A > 1/2 
i = 1 3/4 > A > 5/8 
i = 2 7/8 > A > 3/4 

i = 3 1 > A > 7/8 

th 
The root is then approximated on the i interval by the 

polynomial: ~ 

r = E CjiA j (i = 0, 1, 2, 3) 

j = o 
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METHOD: (Cont. ) 

where: 

i = COO = . 23357606 

CIO = 1.25362715 

C20 = . 74604543 

C30 = .26583673 

i = 1 C01 = . 25852082 

Cll = 1. 13285855 

C21 = . 55082276 

C31 = . 16047195 

i = 2 C02 = .28118105 

C12 = 1.04161107 

C22 = .42821635 

C33 = . 10550026 

i = 3 C03 = . 30220646 

C13 = . 96925257 

C23 = . 34514775 

C33 = . 07368889 

The root is then scaled at Q/2. Maximum absolute error 
for: 

i = is 1. 09- 10 

i = 1 is 6. 38- 10" 7 

i = 2 is 3. 58' 10" ? 

i = 3 is 5.73- 10" 7 

If the argument is negative, the results will be negative. 
The original argument can be found in location 12. 
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PROGRAM DESCRIPTION 



Catalog No. 203011-C 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 



SOURCE 
LANGUAGE: 



Fixed-Floating Format Conversion Programmed Operator - FFF 
T. Marshall, SDS 
February 11, 1964 

Any SDS 920/930 Computer 

Perform* conversion between fixed point single precision, 
fixed point double precision, floating point single precision, 
and floating point double precision formats. 

None used. 

Instructions and constants: 122 oct, 82 dec 

280 to 632 microseconds, including programmed operator 
entry and exit. 

SYMBOL 



USE: 



INSTRUCTION CODING 



The effective address of an FFF instruction specifies format 
conversion performed and scaling of fixed number (if any) 
as follows: 



Octal Digit 

000X0000 
0000X000 
00000XXX 



Binary Bits 

10 - 11 
13 - 14 
15 - 23 



Significance 



Format converted from 
Format converted to 
Scaling of fixed point 
number in two's compleme: 
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USE: (Cont. ) Formats are numbered as follows: 

- Fixed point, single precision 

1 - Floating point, single precision 

2 - Fixed point, double precision 

3 - Floating point, double precision 

A scaling of 000 indicates that the binary point of the fixed 
point number is immediately right of the sign bit - i. e. , that 
the number is a fraction less than or equal to one. A positive 
scaling other than zero specifies the number of binary places 
between the sign bit and the binary point to the right. A 
negative scaling specifies that the binary point is to the left 
of the sign. (However, the most significant bit of the number 
will still contain the sign. ) Positive scaling may range from 

000 through 377 octal, negative scaling from 777 through 400. 

Scaling can alternately be conceived of as follows: The intended 
value of a fixed point number equals the value of the number as 
a fraction, times two raised to the S power, S being specified 
by scaling. 

Example: A single register integral number would 
have scaling of 027 octal (23 decimal). 

If both formats (conversion from and conversion to) are 
floating point, scaling has no significance. 

2. FORMATS 

1 - Fixed point single precision 

A 24-bit number is contained in the A register in two's 
complement form. 

2 - Floating point single precision 

A 24-bit fraction is contained in the A register as a 
normalized, fractional two's complement number. 

A 24-bit exponent is contained in the B register as 
an integral two's complement number. 

3 - Fixed point double precision 

The most significant 24 bits of the number is contained 
in the A register, the least significant 24 bits in the B 
register. The number is in two's complement form. 
Bit zero position of the B register contains a magnitude 
bit (not sign). 
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USE: (Cont. ) 



4 - Floating point double precision 

A 39-bit fraction is contained in the A register and 
bit positions through 14 of the B register, as a 
normalized, fractional two's complement number. 

A 9 bit exponent is contained in bit positions 15 
through 23 of the B register as an integral two's 
complement number. 



3. FUNCTIONS 

FFF 00 - No Operation 
FFF 01 



Fixed point single precision to 
Floating point single precision 



8 



Zero becomes zero fraction and -2 exponent. 

FFF 02 - Fixed point single precision to 
Fixed point double precision 

B register is cleared. The contents of A 
register are not changed. 

FFF 03 - Fixed point single precision to 
Floating point double precision. 

g 
Zero becomes zero fraction and -2 exponent. 

FFF 10 - Floating point single precision to 
Fixed point single precision 

Performs same operation as FFF 12. The 
result is double register. 

FFF 11 - No Operation 

FFF 12 - Floating point single precision 
to Fixed point double precision 

If scaling specified is less than exponent 
overflow is set. 

If difference between exponent and scaling 
exceeds 47, the result is set to zero. 



FFF 13 - Floating point single precision to 
Floating point double precision 

Q 

If exponent exceeds (2 -1), overflow is set. 

Q 

If exponent is less than -2 , fraction is 

Q 

set to zero and exponent to -2 . 

Bit positions through 14 of B register 
are set to zero. 
22-3 



Page 4 of 5 Catalog No. 20301 1C 

USE: (Cont.) FFF 20 - No Operation 

FFF 21 - Fixed point double precision to 
Floating point single precision 

8 
Zero (double register) becomes zero fraction and -2 

exponent. 

FFF 22 - No Operation 

FFF 23 - Fixed point double precision to 
Floating point double precision 

Q 

Zero (double register) becomes zero fraction and -2 
exponent. 

FFF 30 - Floating point double precision to 
Fixed point single precision 

Performs same operation as FFF 32. The result: 
is double register. 

FFF 31 - Floatingpoint double precision to 
Floating point single precision 

The sign of the exponent is extended left to bit zero 
of the B register. 

FFF 32 - Floating point double precision to 
Fixed point double precision 

If scaling specified is less than exponent, overflow 
is set. 

If difference between exponent and scaling exceeds 47, 
the result is set to zero. 

FFF 33 - No Operation 

METHOD: Upon entry the effective address is obtained. The effective 

address is right shifted 9 bits and extracted with 00000033 to 
obtain format conversion specification. The format conversion 
specification becomes the table address of an indexed execute. 
The executed table operation performs a branch to subroutine, 
an operation, or a NOP, as a function of the format conversion 
specification. 
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METHOD: (Cont. ) 



If a branch is not executed, the routine reloads original 
contents of registers and exits. 

If fixed to floating conversion is specified, overflow is set 
as a flag if conversion is to floating single precision. If 
the fixed number is single precision, the B register is 
cleared. The number is always converted to floating 
double precision, then this in turn is changed to floating 
single precision if required. 

A common subroutine performs the actual fixed to floating 
conversion. The scaling is extracted from the effective 
address. If the number is zero, the exponent is set to 400, 
otherwise the number is normalized and scaling is 
correspondingly decremented. The normalized number is 
truncated to 39 bits and becomes the fraction. The 
decremented scaling becomes the exponent. The subroutine 
then branches as a function of the flag; exiting if floating 
double precision is to be the final format. 

If conversion to floating single precision is specified, the 
sign of the exponent (bit 15) is extended left throughout 
the B register. 

If floating to fixed conversion is specified, the fraction is 
subtracted from the specified scaling. If this difference is 
negative, overflow is set. If the difference is greater than 
57 (octal), the result is set to zero. Otherwise, the different 
is placed in the X register and conditions an indexed right 
shift of the fraction. The result is the fixed point number. 

If floating single to floating double conversion is specified, 
the rocponent is tested. If the exponent is greater 
than 377 (octal) the overflow is turned on. If the exponent 
is less than 77777400 (octal), the fraction is set to zero and 
the exponent is set to 400. Otherwise the exponent is 
truncated to 9 bits and the low 15 bits of the fraction are 
set to zero. 
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0500 


67 




CXA 




68 




SUB 


TEMP 


69 




SKA 


SIGN 


70 




BRU 


FHO 


71 




SKG 


F121 


72 




BRU 


F35 


73 




CLR 




74 




BRU 


F45 


75 


F103 


BAC 




76 




SKG 


F117 


77 




BRU 


F114 



SCALE 
END+1 



RETURN 
SCALING 

Ah NOT s C 
AL NOT « 
ZERO EXIT 



OVERFLOW 

END+1. FL8ATING DOUBLE 



EXCHANGE SCALING AND AE 



8VERFL8U 
0000C057 
R = 
R N8T = 

END + 1 



UNDERFLOW 



N3 

I 

00 



00106 


73 00120 


78 




SKG 


F120 


00107 


01 00112 


79 




BRU 


F112 


00110 


75 00120 


•30 


F110 


LD3 


F120 


00111 


51 00113 


81 




BRR 


F113 


00112 


46 00104 


82 


F112 


RCH 


0104 


00113 


01 00044 


83 


F113 


BRU 


F44 


00114 


46 30003 


34 


F114 


CLR 




00115 


75 00030 


85 




LDB 


F30 


001 16 


01 00045 


86 




BRU 


F45 


00117 


77777400 


87 


F117 


DATA 


077777400 


00120 


00000377 


88 


F120 


DATA 


00000377 


00121 


00000057 


89 
90 


F121 


DATA 
END 


00000057 



Nd OVERFLOW 

SET OVERFLOW TO END + 1 

To END 

TO END+1 
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Catalog No, 20301 0-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 



SOURCE 
LANGUAGE: 



Floating Point, Single Precision Arithmetic Programmed 
Operator Package 

Richard S. Resnick, SDS 

9 February 1963 



Any SDS 920/930 Computer 

To provide the following single precision floating point 
arithmetic functions: 



Mnemonic 
FSA 
FSS 
FSM 
FSD 
FSN 

None 



Programmed Operator 



Floating Add, Single Precision 
Floating Subtract, Single Precision 
Floating Multiply, Single Precision 
Floating Divide, Single Precision 
Floating Negate, Single Precision 



Instructions and constants: 174 oct, 124 dec 

Uses standard subroutine temporary storage locations 12 
through 14, and location 1, 

(microseconds) 

FSA 352-480 FSD 464-480 

FSS 368-480 FSN 64- 72 

FSM 248-264 



SYMBOL 
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USE: 1. FORMAT 

Each floating, single precision number occupies two words. 
The fraction is contained in one word in two's complement 
form. Its value may be: 

1/2 ^ fraction < 1 

-1 < fraction < -1/2 

fraction = 

The exponent is contained in the other word as an integer in 
two r s complement form scaled at 23. Its value may lie in 
the range: 

-8 8 

2 < exponent < 2 

Both A and B registers together constitute a "double 
accumulator" for floating single precision programmed 
operators. The fraction is contained in A register and 
the exponent in B register. 

The contents of the two memory locations designated by the 
effective address of a programmed operator, and by the 
effective address plus one, constitute a "double operand". 
The exponent is contained in the location designated by the 
effective address; the fraction is contained in the following 
location. 

2. FUNCTIONS 

Except as noted, indexing and indirect addressing are possible 
on all instructions. 

FLOATING ADD, SINGLE PRECISION FSA 

The "floating operand" is added to the "floating accumulator", 
and the normalized sum appears in the "floating accumulator." 

Registers Affected: A, B Timing: 44 - 60 cycles 

FLOATING SUBTRACT, SINGLE PRECISION FSS 

The "floating operand" is subtracted from the "floating 
accumulator" and the normalized difference appears in the 
"floating accumulator. " 

Registers Affected: A, B Timing: 46 - 60 cycles 
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Catalog No. 203010-B 



USE (Cont.) 



METHOD: 



FLOATING MULTIPLY, SINGLE PRECISION FSM 

The "floating operand" is multiplied by the contents of the 
"floating accumulator". The normalized product appears 
in the "floating accumulator. " 

Registers Affected: A, B Timing: 31-33 cycles 

FLOATING DIVIDE, SINGLE PRECISION FSD 

The contents of the "floating accumulator" are divided by 
the "floating operand". The normalized quotient appears 
In the "floating accumulator." 

If the divisor is zero, overflow will be turned on. 

Registers Affected: A, B Timing: 58 - 60 cycles 

FLOATING NEGATE, SINGLE PRECISION FSN 

The contents of the "floating accumulator" are negated. 
The address portion of the instruction is not used. 

Indirect addressing and indexing are not used. 

Registers Affected: A, B Timing: 8-9 cycles 

3. ACCURACY 

Precision of results is 23 bits plus sign. Results are not 
rounded. 

If an exponent becomes larger than 255 or smaller than 256, 
the result will remain arithmetically correct. However, if 
such a result is converted to floating double precision, it 
will cause overflow or underflow. Probability of an 
exponent exceeding 2 is negligibly small, therefore this 
condition is not detected. 

1. NOMENCLATURE 



Ah = Fractional portion of operand initially in accumulator 
(A register) 

Ae = Exponent of operand initially in accumulator (B register) 

Mh = Fractional portion of operand in memory (location M+l) 

Me = Exponent of operand in memory (location M) 
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METHOD: (Cont. )Rh = Fractional portion of result (A register) 

Re = Exponent of result (B register) 

All fractions are normalized. All exponents are integers 
scaled at 23. 

2. FLOATING ADD, SINGLE PRECISION 

The exponents are compared. If their difference is greater 
than 32, the operand having the larger exponent is loaded 
into the accumulator and the subroutine exits. Otherwise, 
the fraction having the smaller exponent is shifted right a 
number of places equal to the difference, and added to the 
other fraction. The larger exponent becomes Re. 

If the addition overflows, Rh is* shifted right one position, 
the sign changed, and Re is incremented. Otherwise, the 
result is normalized. 

3. FLOATING SUBTRACT, SINGLE PRECISION 



The exponents are compared. If their difference is greater 
than 32, the operand having the large exponent is loaded 
into Ah and its exponent into Ae and the subroutine exits. 
Otherwise, if Ah is greater than Mh, Mh is negated and 
shifted right a number of places equal to the difference and 
added to Ah. If Mh is greater than Ah, Ah is shifted right 
a number of places equal to the difference and Mh is 
subtracted from Ah. The larger exponent becomes Re. 

If overflow occurs, Rh is shifted right one bit position, 
the sign changed, and Re is incremented. Otherwise/ the 
result is normalized. 

4. FLOATING MULTIPLY, SINGLE PRECISION 

The fractional parts are multiplied together and the result 
is normalized. If overflow is on, indicating multiplication 
of 40000000 times 40000000 occurred, Rh is set to 
37777777. The exponents are added. 

5. FLOATING DIVIDE, SINGLE PRECISION 

The exponents are differenced and the result is incremented 
by one to compensate for a subsequent right shift of Ah. If 
Mh is zero, overflow is turned on, and subroutine exits. 
OtherwisdAh is right shifted one position and normal division 
takes place and the result normalized. 

6. FLOATING NEGATE, SINGLE PRECISION 

If Ah is zero, the subroutine exits. Otherwise, the 
ones complement of Ah replaces Ah. 

23-4 



CO 

6* 



00000 
00001 
00002 

00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 

00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 

00040 
00041 



50 00173 
17 00172 

51 00000 



37 
77 



46 
54 
35 
46 
66 
65 
71 
40 
51 
41 
67 
46 
71 
51 

37 
77 
36 
64 
71 
40 
17 
67 
46 
55 
46 
71 
51 



37 
35 



00014 
40000 
004544 
00000 
00012 
10012 
00001 
00001 
00012 
20001 
00167 
00017 
10002 
00040 
00014 
00000 

00014 
40000 
00012 
00001 
00000 
20001 
00172 
10001 
00204 
00012 
00014 
00014 
00000 

00014 
00013 



1 


$FSN 


POPD 


014400000 


2 


FSN 


SKE 


= 


3 




EOR 


N1Q23 


4 




BRR 





5 


*FSD 


P8PD 


014300000 


6 


FSD 


STX 


TX 


7 




EAX 


*0 


■3 




- aA-b 


— — - — - ■• 


9 




SUB 


ME*2 


10 




STA 


RE 


11 




BAC 




12 




RSH 


1 


13 




DIV 


MH*2 


14 




LDX 


AE 


15 




SKS 


020001 


16 




BRR 


OVFLO, 4 


17 




BRX 


$ + 1*4 


18 




NOD 


2 


19 




CXB 




20 




LDX 


TX 


21 




BRR 





22 


$FSM 


POPD 


014200000 


23 


FSM 


STX 


TX 


24 




EAX 


*0 


25 




STB 


AE 


26 




MUL 


MH*2 


27 




LDX 


ME*2 


28 




SKS 


020001 


29 




E8R 


N1Q23 


30 




NOD 


1 


31 




RCH 


0204 


32 




ADD 


AE 


33 




XAB 




34 




LDX 


TX 


35 




BRR 





36 


$F5S 


POPD 


014100000 


37 


FSS 


STX 


TX 


38 




STA 


AH 



ONES COMPLIMENT 



SAVE X 



FORM RE * AE - ME 



SUPPRESS OVFLO 
FORM RH = AH/MH 

TEST OVFLO 

SET OVFLO AND EXIT 

INCREMENT RE 



RESTORE X 



SAVE X 



FORM RH=MH*Ah 

TEST OVFLO 
MAKE POS 1 AT 

CXA.CAB 

FORM RE * AE + ME 

RESTORE X 



SAVE X 
SAVE AH 



K5 
CO 



Ov 



00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 

00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 



36 
77 
46 
74 
01 
46 
50 
52 
01 
46 
62 
66 
54 
71 
40 
01 
67 
46 
71 
51 
46 
50 
52 
01 
54 
40 
17 
46 
66 
55 
71 
40 
01 
67 
46 
71 
51 
52 
01 



00012 
40000 
00200 
00000 
00066 
00441 
00001 
00170 
00107 
00014 
00013 
40013 
00001 
00000 
20001 
00163 
10030 
00040 
00014 
00000 
00441 
00013 
00170 
00112 
00001 
20001 
00172 
00022 
00000 
00013 
00012 
20001 
00163 
10030 
00040 
00014 
00000 
00170 
00056 



39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 



FSS1 



FSS2 



FSS3 



FSS4 



STB 


AE 


EAX 


*0 


CXA 




SKD 


M£»2 


bru 


FSS2,4 


RCH 


0441 


SKE 


MH*2 


SKB 


NlC5l7*4 


BRU 


FSS4,4 


XAB 




XMA 


AH 


RSH 


*AH 


SUB 


MH*2 


LBX 


ME#2 


SKS 


020001 


BRU 


FIX, 4 


NQD 


24 


CXB 




LDX 


TX 


BRR 





RCH 


0441 


SKE 


AH 


SKB 


Nl0l7#4 


BRU 


FSS5,4 


SUB 


MH*2 


SKS 


020001 


EOR 


N1Q23 


RCH 


022 


RSH 


0,2 


ADD 


AH 


LDX 


AE 


SKS 


020001 


BRU 


FIX, 4 


N3D 


24 


CXB 




LDX 


TX 


BRR 





SKB 


NlGi7#4 


BRU 


FSSi,4 



SAVE AE 



FjRM RE = AE-ME 

AH GTE MH 

CAX*CXB,CLA 

TEST MH=0 

TEST RE GTE 32 

Mh GTrt AH SPEC CASE 

EXCHANGE AH AND RE 
SCALE AH 



TEST 0VFL8 
FIX 6VFL8 



RESTORE X 

EXIT 

CAX,CXB,CLA 

TEST AH=0 

TEST RE GTE 32 

Ah GTE MH SPEC CASE 

TEST 8VFL0 
ONES COMPLIMENT 
C6X.CLB 
SCALE -MH 



TEST OVFLO 
FIX ©VFLe 



RESTORE X 
EXIT 

RE GTE 32 



Co 
i 



00111 


4 


01 


00077 


7a 




BRU 


FSS3,4 


00112 


4 


52 


00170 


79 


FSS5 


SKB 


NlQl7*4 


00113 


4 


01 


00077 


80 




BRU 


FSS3,4 


00114 


4 


01 


00056 


81 




BRU 


FSSl.4 










82 


$F3A 


P8PD 


014000000 


00115 





37 


00014 


83 


FSA 


STX 


TX 


00116 





35 


00013 


84 




STA 


AH 


00117 





36 


00012 


85 




STB 


AE 


00120 





77 


40000 


86 




EAX 


*0 


00121 





46 


00200 


87 




CXA 




00122 


2 


74 


00000 


88 




SKD 


ME*2 


00123 


4 


01 


00136 


89 




BRU 


FSA2*4 


00124 





46 


00441 


90 




RCH 


0441 


00125 


2 


50 


00001 


91 




SKE 


MH#2 


00126 


4 


52 


00170 


92 




SKB 


Nl0l7#4 


00127 


4 


01 


00155 


93 




BRU 


FSA6#4 


00130 





46 


00014 


94 




XAB 




00131 





62 


00013 


95 




XMA 


AH 


00132 





66 


40013 


96 




RSH 


*AH 


00133 


2 


55 


00001 


97 


FSA1 


ADD 


MH*2 


00134 


2 


71 


00000 


98 




LDX 


ME#2 


00135 


4 


01 


00147 


99 




BRU 


FSA4,4 


00136 





46 


00441 


100 


FSA2 


RCH 


0441 


00137 





50 


00013 


101 




SKE 


AH 


00140 


4 


52 


00170 


102 




SKB 


NlQl7#4 


00141 


4 


01 


00160 


103 




BRU 


FSA7,4 


00142 


2 


76 


00001 


104 




IDA 


MH*2 


00143 





46 


00022 


105 




RCH 


022 


00144 


2 


66 


ooooo 


106 




RSH 


0*2 


00145 





55 


00013 


107 


FSA3 


ADD 


AH 


00146 





71 


00012 


108 




LDX 


AE 


00147 





40 


20001 


109 


FSA4 


SKS 


020001 


00150 


4 


01 


00163 


110 




BRU 


FIX, 4 


00151 





67 


10030 


HI 




NQD 


24 


00152 





46 


00040 


112 


FSA5 


CXB 




00153 





71 


0/5014 


113 




LDX 


TX 


00154 





51 


00000 


114 




BRR 





00155 


4 


52 


00170 


115 


FSA6 


SKB 


NlQl7#4 


00156 


4 


01 


00133 


116 




BRU 


FSAl.4 



M = 

RE GTE 32 

A»0 

SAVE X 
SAVE AH 
SAVE AE 



FQRM RE=AE-ME 

AH GTE MH 

CAX,CXB*CLA 

TEST MH-0 

TEST RH GTE 32 

MH GTR AH SPEC CASE 

EXCHANGE RE AND AH 
SCALE AH 



TEST 8VFL8 

CAX,CXB*CLA 

TEST AH=0 

TEST RH GTE 32 

AH GTE MH SPEC CASE 

CdX.CLB 
SCALE MH 



TEST evFLO 
FIX OVFLO 



RESTORE X 
EXIT 

RE GTE 32 



00157 4 01 0014b 117 BRU FSA3*4 M*0 

00160 4 52 00170 118 FSA7 SKB NlGi7,4 

00161 4 01 00145 119 BRU FSA3,4 R£ GTE 32 

00162 4 01 00133 120 BRU FSAi,4 A=0 

00163 66 00001 121 FIX RSH 1 

00164 U 17 00171 122 E8R NlQo 

00165 4 41 00152 123 BRX FSA5,4 INCREMENT INDEX 

00166 4 01 00152 124 BRU FSA5»4 

00167 4 00 00164 125 8VFL6 PIE $-3,4 6VFL8 EXIT 

00170 77777740 126 N1Q17 DATA 077777740 

00000000 127 ME EGU 

00000001 128 MH EGU 01 
00000012 129 RE EQU 012 

00000012 130 AE EQU 012 

00000013 131 At- EGU 013 

00000014 132 TX EGU 014 

00171 40000000 133 NJGO DATA 040000000 

00172 77777777 134 N1G23 DATA -1 

135 END 

co 00173 00000000 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203023-C 



IDENTIFICATION: 



AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 



Double Precision Floating Point Programmed Operator 
Package 

Francis F. Welsh, Jr. , SDS 

July 28, I9d4 



Any SDS 920 or 930 computer. 

To simulate the operation of floating point instructions 
on the SDS 920 or 930*. 



None 



STORAGE: 


Instructions and constants: 


TIMING: 


FLN 


19 cycles average 




FLM 


92 cycles average 




FLD 


134 cycles average 




FLS 


98 cycles average 




FLA 


82 cycles average 


SOURCE 






LANGUAGE: 


SYMBOL 





*This package supersedes Catalog N. 203023. While somewhat slower than 203023, 
this package detects the rare cases which 203023 ignores. Overflow/ underflow 
correction is also somewhat different. 
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Catalog No. 203023C 



USE: 



LDP: (M+1,M) - (A,B) 

STD: (A,B) - (M+1,M) 

FLA: (A,B) + (M+l.M) - (A,B) 

FLS: (A,B) - (M+l,M)-> (A, B) 

FLM: (A,B) * (M+1,M) -* (A, B) 

FLD: (A,B) / (M+l, M) - (A, B) 

FLN: -(A, B) -* (A, B) 



The floating point format is consistent with the description 
in the SDS 920/930 reference manual. 

Upon completing floating point operations, the package 
checks for exponent overflow./ underflow. In the case 
of overflow, the overflow trigger is set and the result 
is set to 

3777 7777 7777 7377, result positive 
4000 0000 0000 0377, result negative 

When a division overflow occurs, the correct sign is 
intermediate. Underflows are set to zero and the 
overflow trigger is set. 



METHOD: 



The following notation is used below: 

E 



(A, B) = f 



A = f 



2 A + f 



E A -24 
. A 



E E E m" 24 

(M+l, M) = f • 2 = f , • 2 + f -2 

M m+l m 



FLA (FLS) 



(A,B) + (M+1,M) 



f + f -2 
A(I) M 



E -E 
M A 



<- )f M + f A • 2 



E -E 
A M 



(A,B) 



, |(A, B) 



> |(M+1,M) 
< |(M+1, M) 



FLM 



(A,B) * (M+1,M) 



= ( ff XI 
\ a m+l 



+ (tf +1 +f t )■ 2" 24 ) • 2^^ 
b m+l ma / 
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METHOD: (Cont) 
FLD 

/ f +f u ' 2 " 24 E A" E x>r 

(A,B)/(M+1,M) = a b • 2 A M 

' f +f • 2' 24 

m+1 m 

-24 
f + f . 2 E -E 

a b AM 



•(■*e,- 2 1' 



f m + l 1+ f 



• ( f a + f b • 2 ' 24 ) /im. .' 2 -Z 4 \. 
f m+l \ f m+l / 



E -E 
2 A M 



2 A M 



E -E 
2 A M 
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NO 
I 





0000000? 


OOOOC 





00 


00000 


G00C1 


u 


00 


00000 


00PC2 





00 


00000 


00003 





00 


00000 


000C4 





00 


oococ 


0OOC5 








00OC5 





46 


00014 


000G6 


u 


17 


0O?77 


00007 





55 


00300 


00010 





46 


00C14 


0001 1 





17 


00301 


00012 





5 7 


00302 


00013 





50 


00303 


00014 





40 


20001 


00015 





01 


00017 


00016 





51 


00000 


00017 





66 


20011 


00020 


u 


72 


00304 


00021 





01 


00024 


00022 





55 


00305 


00023 





01 


00025 


00024 





54 


00306 


00025 





67 


20011 


00026 





40 


20001 


00027 





01 


00264 


00030 





51 


00000 


00031 





37 


00001 


00032 





77 


40000 


00033 





35 


ooooo 


00034 





46 


00200 


00035 





46 


00122 


00036 





37 


00002 


00037 





46 


00410 


00040 





66 


20002 


00041 


2 


64 


00001 



1 


X2 


ECU 


2 


2 


A REG 


PZE 





7 

y^ 


XR£G 


PZE 





A 


TErtPE 


PZE 





5 


TEMP 


PZE 





5 


FLAG 


PZE 





7 


SFLN 


POPD 


014400C00 


5 


FL.M 


ess 





9 




XAB 




10 




EOR 


=077777000 


11 




ADD 


=otooo 


12 




XAB 




13 




EOR 


= -1 


14 




ADC 


= 


15 




SKE 


=060000000 


16 




OVT 




17 




BRU 


$ + 2 


16 




BRR 





19 




RCY 


9 


20 




SKA 


=000020000 


21 




BRU 


$ + 3 


22 




ADD 


=00060000 


23 




BRU 


$ + 2 


24 




SUB 


=00120000 


25 




LCY 


9 


26 




svt 




27 




BRU 


ouflou 


28 




BRR 





29 


$flm 


P9PD 


014200000 


30 




STX 


XREG 


31 




EAX 


*0 


32 




STA 


AREQ 


33 




CXA 




34 




SfE 




35 




STX 


TEMPE 


36 




RCH 


0410 


37 




RCY 


2 


38 




MUL 


1,X 2 



TwOS COMPLEMENT FRACTieN 



TwO RESULTS ARE UNNORfc ALI ZED 

BrtlGINAL FRACTION = 1/2 
FINAL FRACTION =-1 



FOLLOWING METHOD SETS OVERFLOU IF 
EXPONENT UNDERFLOWS OR 8VERFL0US 

FINAL F=-l. RIGHT NORMALIZE 

ORIGINAL Fs-1. LEFT NORMALIZE 



ovfTr/underflow 

EXIT 



SIGN-EXTENDED EXPONENT OF CA,B» 

CAX, CBA 
FORCE + 



I 



00042 





35 


00003 


39 


STA 


TEMP 


00043 


2 


75 


00000 


40 


LOB 


0*X2 


00044 





46 


00200 


41 


CXA 




00045 





46 


00122 


42 


STE 




00046 





46 


00600 


43 


XXA 




00047 





63 


00002 


44 


ADM 


TEMPE 


00050 





46 


00010 


45 


CBA 




00051 





66 


20002 


46 


RCY 


2 


00052 





64 


ooooo 


47 


MUL 


AREG 


00053 





55 


00003 


48 


ADD 


TEMP 


00054 





64 


00307 


49 


MUL 


= 2 


00055 





36 


00003 


50 


STB 


TEMP 


00056 





62 


00000 


51 


XMA 


AREG 


00057 


2 


64 


00001 


52 


MUL 


1.X2 


00060 





46 


00014 


53 


XAB 




00061 





55 


00003 


54 


ADD 


TEMP 


00062 





46 


00014 


55 


XAB 




00063 





57 


00000 


56 


ADC 


AREG 


00064 





02 


20001 


57 


R8V 




00065 





71 


00002 


58 


LCX 


TEMPE 


00066 





73 


00310 


59 


SKG 


=0*0000000 


00067 





01 


00072 


60 


BRU 


FLM8 


00070 





67 


10001 


61 


NOD 


1 


00071 





01 


00135 


62 


BRU 


FLDB 


00072 





52 


00301 


63 FLMB SKB 


=-1 


00073 





01 


00135 


64 


BRU 


FLDB 


00074 





66 


20001 


65 


RCY 


1 


00075 





41 


00135 


66 


BRX 


FLDB 


00076 





01 


00135 


67 


BRU 


FLDB 










68 $FLD POPD 


01*300000 


00077 





37 


00001 


69 


STX 


XREG 


ooioo 





46 


00122 


70 


STE 




00101 





37 


00002 


71 


STX 


TEMPE 


00102 





71 


00001 


72 


LDX 


XREG 


00103 





77 


40000 


73 


EAX 


*0 


001C4 





66 


00002 


74 


RSH 


2 


001C5 


2 


65 


00001 


75 


DIV 


1*X2 


00106 





40 


20001 


76 


ovt 




00107 





01 


00270 


77 


BRU 


D9FL8 



SIGN- EXTENDED EXPONENT OF <M,M+1> 
EXPONENT OF RESULT 

FORCE + 

CROSS PRODUCT SUM 

EXTEND TO DOUBLE PRECISION 



MULTIPLY MORE SIGNIFICANT HALVES 
ADD CROSS PRODUCT SUM 

RESET OVERFLOW 

CmECK FOR <-l )*<-l ) 

POSSIBLE 
NORMALIZE RESULT 

IF B = 0* RESULT MUST BE R I GHT-NORMAL I Z 
YES 



BE TO X* TO BE 
SIGN-EXTEND EXPONENT (A,B> 

PROCURE ARGUMENT ADDRESS 



I 



ootio 


C 


35 


00003 


78 


OOtll 





46 


0001C 


79 


001 12 





66 


00001 


90 


00113 





35 


00000 


81 


00114 


2 


75 


00000 


82 


00115 





46 


00200 


83 


001 16 





46 


00122 


84 


00117 





46 


00600 


85 


00120 





46 


01000 


86 


00121 





55 


00307 


87 


00122 





63 


00002 


88 


00123 





46 


oooio 


89 


00124 





66 


20002 


90 


00125 


u 


46 


01000 


91 


00126 





64 


00003 


92 


00127 





55 


00000 


93 


00130 


2 


65 


00001 


94 


00131 





64 


00307 


95 


00132 





55 


00003 


96 


00133 





71 


00002 


97 


00134 


u 


67 


10004 


98 


00135 





46 


00600 


99 


00136 





73 


00311 


100 


00137 





73 


00312 


101 


00140 


4 


5i 


00140 


102 


00141 





46 


00600 


103 


00142 





50 


00302 


104 


00143 





46 


00140 


105 


00144 





71 


00001 


106 


00145 





40 


20001 


107 


00146 





01 


00264 


108 


00147 





51 


00000 


109 
110 


00150 





35 


00004 


HI 


00151 





72 


00310 


112 


00152 





01 


00155 


113 


00153 





17 


00301 


114 


00154 





62 


00004 


115 
116 



FLDB 



FLAX 



$FLS 



$FLA 



STA 


T EMp 


C3A 




RSH 


1 


STA 


AREG 


LOB 


0.X2 


CXA 




STE 




XXA 




CNA 




ADD 


= 2 


ADM 


TEMPE 


C8A 




RCY 


2 


CNA 




MUL 


TEMP 


ADD 


AREG 


DIV 


1.X2 


MUL 


= 2 


ADD 


TEMP 


LDX 


TEMPE 


N9D 


4 


XXA 




SKG 


= 0377 


SKG 


=077777377 


BRR 


S*4 


XXA 




SKE 


= 


LDE 




LDX 


XREG 


OVT 




BRU 


ouflow 


BRR 





P8PD 


014100000 


STA 


FLAG 


SKA 


=040000000 


BRU 


FLAPOP 


EQR 


= -1 


XMA 


FLAG 


POPD 


014Q00000 



MORE SIG. HALF OF QUOTIENT 
SIGN-EXTEND REMAINDER 

BE TO XE, TO BE 

COMPUTE EXPONENT OF RESULT 
COMPENSATE FOR SHIFT 



LESS SIG. HALF 9F QUOTIENT 
EXTEND T6 DOUBLE PRECISION 



NORMALIZE RESULT 



UNDERFLOU 



NO 



CHECK FOR ZERO 

NO. PACK RESULT 

YcS. LET EXPONENT 3E ZERO 



EXIT 

SET FLAG NEGATIVE 

NEGATE IF POSITIVE 



00155 





37 


00001 


117 


FLAPOP STX 


XREG 


00156 





35 


ooooo 


118 


STA 


AREG 


00157 





36 


00003 


119 


SfB 


TEMP 


00160 





46 


00122 


120 


STE 




00161 





37 


00002 


121 


STX 


TE^PE 


00162 





71 


00001 


122 


LDX 


XREG 


00163 





77 


40000 


123 


EAX 


*0 


00164 





46 


30003 


124 


CLR 




00165 


2 


50 


00001 


125 


SKE 


1*X2 


00166 





01 


00170 


126 


BRU 


$ + 2 


00167 





01 


00254 


127 


BRU 


FLAZ 


00170 





50 


00000 


128 


SKE 


AREG 


00171 





01 


00173 


129 


BRU 


$♦2 


00172 





01 


00210 


130 


BRU 


FLAC 


00173 





46 


00200 


131 


CXA 




00174 


2 


75 


00000 


132 


LDB 


0»*2 


00175 





46 


00122 


133 


STE 




00176 





46 


00600 


134 


XXA 




k> 00177 





54 


00002 


135 


SUB 


TEMPE 


t 00200 





73 


00301 


136 


SKG 


= -1 


^ 00201 





01 


00233 


137 


BRU 


FlAGM 


00202 





72 


00313 


138 


SKA 


=077777700 


00203 





76 


00314 


139 


LDA 


= 39 


00204 





62 


ooooo 


140 


XMA 


AREG 


00205 





75 


00003 


141 


LDB 


TEMP 


00206 





66 


40000 


142 


R3H 


*AREG 


00207 





46 


00014 


143 


XAB 




00210 





53 


00004 


144 


FLAC SKN 


flag 


00211 





01 


00220 


145 


BRU 


FLAE 


00212 





16 


00315 


146 


MRG 


= 0777 


00213 


2 


54 


ooooo 


147 


SUB 


0*X2 


00214 





17 


00315 


148 


EOR 


= 0777 


00215 





46 


00014 


149 


XAB 




00216 


2 


56 


00001 


150 


sue 


1.X2 


00217 





01 


00224 


151 


BRU 


FLAF 


00220 





46 


00101 


152 


FLAE RCH 


0101 


00221 


2 


55 


ooooo 


153 


ADD 


C,*2 


00222 





46 


00014 


154 


VAB 




00223 


2 


57 


00001 


155 


ADC 


1#X2 



BE TO Xi TC B 
SIGN-EXTEND EXPONENT (A,B) 

PROCURE ARGUMENT ADDRESS 

CHECK FOR M,M+1=0 

NO 

YES 

CHECK FOR A,B=0 

NQ 

YES 

CONTINUE 

BE TO X# TO BE 
SIGN-EXTEND EXPONENT <M,M+1> 
COMPARE EXPONENTS 

/A/>/M/ 

/a/</m/. check for difference large 
yes. set maximum shift to 39 

procure smaller argument 
align with larger 

test whether fla or fls 

FLA 

FLS 

PERFORM DPS 



TO AE 
PERFORM DPA 



I 

00 



00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00270 
00271 

00272 



2 

U 





Q 



2 

2 






G 





u 

u 
















46 
37 
46 
40 
01 
67 
01 
46 
72 
76 
71 
46 
66 
46 
53 
01 
62 
46 
62 
54 
^6 
56 
01 
46 
55 
46 
57 
01 
66 
17 
41 
01 
52 
01 
46 
51 
71 
16 
17 



00000 
00004 
00122 
20001 
00260 
10046 
00135 
01000 
00313 
00314 
00001 
00600 
00000 
00102 
00004 
00253 
00000 
00014 
00003 
00003 
00014 
00000 
00224 
00014 
00003 
00014 
00000 
00224 
00001 
00310 
00143 
00135 
00316 
00271 
30003 
00000 
00001 
00317 
00303 



156 
157 
158 
159 
160 
161 
162 
16 3 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 

182 
183 
184 
135 
186 
137 
188 
189 
190 
191 
19? 
193 
194 



FLAF 



FLAGM 



FLAD 



FLAh 
FLAZ 



OFSET 



81FL8W 



DOFLO 
OFLO 



RCH 
STX 
STE 
9VT 

BRU 
NOU 
BRU 
CNA 
SKA 
LDA 
LDX 
XXA 
RSH 
RCH 
SKN 
BRU 
XMA 
XAB 
XMA 
SUB 
XAB 

sue 

BRU 
XAB 
ADD 
XAB 
ADC 
BRU 
RSH 
EOR 
BRX 
BRU 
SKB 
BRU 
CLR 
8RR 
LDX 
MRG 
EOR 



0*2 


FLAG 


8FSET 


38 


FLDB 


=077777700 


= 39 


1,X2 


0.*2 


0102 


FLAG 


FLAH 


AREG 


TEMP 


TEMP 


AREG 


FLAF 



TEMP 



ARtG 


FLAF 


1 


=040000000 


FLAX 


FLDd 


= Q4Q0 


OFLO 





XREG 


=037740000 


=0^0000000 



CHECK F9R OVERFLOW 

YES 

NO. NORMALIZE RESUL r 

/A/>/M/ 

SET EXPONENT DIFFERENCE + 
LDA UITH MAXtEXP DIFF. 39) 



ALIGN SMALLER WITH LAnGER 

TO 3E 

TEST WHETHER FLA/FLS 

FLA 

FLS 

EXCHANGE WITH MEMORY AND 
PERFORM DPS 



PERFORM EPA 



overflow set. right normalize result 



UNDERFLOW 



I 



00273 


66 00046 


195 


RSH 


38 


NEGATIVE, SET 


00274 


17 00310 


196 


EOF? 


=040000000 


positive, set 


00275 


4 51 00275 


197 


BRR 


$*4 




00276 


51 00000 


198 
199 


BRR 
END 







00277 


77777000 










00300 


00001000 










00301 


77777777 










00302 


uooooooo 










00303 


60000000 










00304 


00020000 










003C5 


00060000 










00306 


00120000 










003C7 


00000002 










00310 


40000000 










00311 


00000377 










00312 


77777377 










00313 


77777700 










00314 


00000047 










00315 


00000777 










00316 


00000400 










00317 


37740000 











TO 4000C000.00000377 
T8 Z7777777 ,77777377 
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SDS 900 SERIES PROGRAM LIBRARY 

PROGRAM DESCRIPTION 
Catalog No. 203022-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 



SOURCE 
LANGUAGE: 



Double Precision Arithmetic Programmed Operator Package 
Richard S. Re snick, SDS 
15 February 1063 

Any SDS 920/930 Computer 

Provides double precision fllxed point programmed operators 
assembled as four separate subroutines. 

Programmed Operators 



Mnemonic 


1. 


DPN 


2. 


DPD 




DPM 




DPS 




DPA 


3. 


LDP 


4. 


STD 



Double precision negate 
Double precision divide 
Double precision multiply 
Double precision subtract 
Double precision add 
Load double precision 
Store double precision 

Note: LDP, STD operate on single and double floating point 
numbers also. 



None 

Instructions and constants 



DPN; 12 oct, 10 dec 

DPD, DPM, DPS, DPA: 

LDP: 6 oct, 6 dec 

STD: 6 oct, 6 dec 

(microseconds) 



1 14 oct, 76 dec 



DPN 


72 - 


104 


DPD 


1016 - 


1400 


DPM 


504 




DPS 


160 




DPA 


160 




LDP 


120 




STD 


160 





All times include programmed operator entry and exit. 



SYMBOL 
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USE: 1. FORMAT 

Each double precision number is in two's complement form. 
The sign bit and most significant 23 magnitude bits occupy 
the most significant word; the least significant 24 magnitude 
bits occupy the least significant word. 

When multiplications are performed, the binary point can be 
consistently considered to be located at one of two places: 

Immediately to the right of the sign bit. The double 
precision number is then interpreted as a fraction. 

Immediately to the left of the least significant bit. 
The double precision number is then interpreted as 
a 46 bit plus sign integer. (The least significant 
bit is not used in double precision multiply and 
divide operations.) 

For all arithmetic operations except multiplication, the 
binary point can be consistently considered to be located 
at any position. 

Both A and B registers together constitute a "double 
accumulator" for double precision programmed operators. 
The most significant word is contained in the A register 
and the least significant word in the B register. 

The contents of two memory locations, designated by the 
effective address of a programmed operator and by the 
effective address plus one, constitute a "double operand". 

The least significant word is contained in the location 
designated by the effective address (M), the most significant 
word in the following location (M+l). 

2. FUNCTIONS 

LOAD, DOUBLE PRECISION LDP 

The "double operand" is loaded into the "double accumulator", 
contents of M into B and contents of M+l into A. 

Registers Affected: A, B Timing: 1 5 cycles 

STORE, DOUBLE PRECISION STD 

The contents of the "double accumulator" are stored in the 
"double operand, " contents of B into M and contents of A 
into M+l . 

Registers Affected: M, M+l Timing: 20 cycles 

25-2 
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USE: (Cont. ) DOUBLE PRECISION ADD DPA 

The "double operand" is added to the "double accumulator" 
and the double precision sum appears in the "double 
accumulator. " 

Overflow occurs and the overflow indicator is turned on, 
if both numbers are of the same sign and the sign of the 
result is different. 

Registers Affected: A, B Timing: 20 cycles 

DOUBLE PRECISION SUBTRACT DPS 

The "double operand" is subtracted from the "double 
accumulator" and the double precision difference appears 
in the "double accumulator". 

Overflow occurs and the overflow indicator is turned on, 
if both numbers are of opposite sign, and the sign of the 
result does not agree with the original sign of the 
accumulator. 

Registers Affected: A, B Timing: 20 cycles 

DOUBLE PRECISION MULTIPLY DPM 

The "double operand" is multiplied by the contents of the 
"double accumulator". The double precision product 
appears in the "double accumulator. " 

If the product equals minus one (40000000 00000000 octal) 
the overflow indicator is turned on. This result occurs 
if both numbers were minus one. 

Registers Affected: A, B Timing: 63 cycles 

DOUBLE PRECISION DIVIDE DPD 

The contents of the "double accumulator" are divided by the 
"double operand". The double precision quotient appears in the 
"double accumulator". 

Overflow will occur and the overflow indicator is turned on if: 

, — Double Accumulator 

1 < < -1 

Double Operand 
In this case the results are not correct. 

Registers Affected: A, B Timing: 12-7 - 175 cycles 

25-3 
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USE: (Cont.) DOUBLE PRECISION NEGATE DPN 

The two's complement of the contents of the "double 
accumulator" are placed in the "double accumulator". 

The address portion of the instruction is not used. 

Registers Affected: A, B Timing: 9-13 cycles 

3. ACCURACY 

Precision of DPA, DPS, and DPN is 47 bits plus sign. 
Precision of DPM and DPD is 45 - 47 bits plus sign. 
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METHOD: 1. NOMENCLATURE 

Ah = Most significant word initially in accumulator 
(A register). 

Al = Least significant word initially in accumulator 
(B register). 

Mh = Most significant word of operand in memory 
(location M+l) 

Ml = Least significant word of operand in memory 
(location M). 

Rh = Most significant word of result 
(A register). 

Rl = Least significant word of result 
(B register). 

2. DOUBLE PRECISION ADD 

The least significant words are first added and the carry 
is stored in bit of the index register. The most significant 
words are then added. The carry is simultaneously added 
to the sum. 



3. 



Bit Zero 


Bit Zero 


Bit Zero 


Carry 


Al 


Ml 


Rl 



















1 





1 


1 








1 


1 


1 





1 








1 








1 


1 





1 





1 





1 


1 


1 


1 


DOUBLE PRECISION SUBTRACT 





The least significant words are subtracted and the borrow 
is stored in bit of the index register. The most signifi- 
cant words are then subtracted. The borrow is 
simultaneously subtracted from the sum. 



25-5 



Page 6 of 7 



Catalog No. 203022 B 



METHOD: (Cont. ) 



Bit Zero 


Bit Zero 


Bit Zero 


Borrow 


Al 


Ml 


Rl 
















1 














1 





1 


1 


1 














1 


1 


1 





1 








1 


1 


1 


1 


1 


1 


1 


DOUBLE PRECISION MULTIPLY 





The algorithm used is: 

Rh, Rl = (Ah + Al) (Mh + Ml) 

= (Ah Mh + Ah Ml + Mh al) 
The term Ml Al is dropped because its significance is 



less than 2 



-46 



Al is shifted right two positions with zero shifted into bits 
zero and one, and it is multiplied by Mh. Similarly Ml is 
shifted right two positions and multiplied by Ah. The 
cross products are added and shifted left two positions with 
sign extended left 23 positions. This result is added, 
double precision, to the product of Ah times Mh. If the 
final result is A=40000000, B=00000000; overflow is set. 

5. DOUBLE PRECISION DIVIDE 



The algorithm used is: 

Ah + Al Ah + Al Ah + Al 



Rh, Rl = 



Mh + Ml 



Mh 



1 , M1 " 1 Mh 



Mh J 



1 - 



Ml~ | 

Mh! 



r 



The approximation of 
of the taylor series 



. Ml]" 1 \ Ml 

1+ Mh b * \ l "Mh 



^ 



1 



= 1 -b + 



u b . 



makes use 

'l*J + " 



The series can be truncated after the first term because 



— r is less than 2 and 

Mh 



Ml 
Mh 



is then less than 2 



-46 
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METHOD: (Cont. ) The algorithm can be further reduced to: 

ax. ai Ah + A1 W1 

t^ t^i Ah + Al r-rr Ml 

Rh, Rl = Mh 



Mh 



Consider that: 

Ah + Al 
Mh 

then: 



= Q +R 



Rh, Rl = Q + 



R .QM1 



Mh 



Mh 



Mh and Ml are first normalized. Ah and Al are shifted 
left an equal number of places, then right one place and 
divided by Mh. The quotient and remainder are saved with 
the remainder shifted right one place. Ml is shifted right 
two places, with zeros shifted into bits zero and one, negated 
and multiplied by the quotient. The product is added to the 
shifted remainder, divided by Mh, and shifted right 22 places 
with the sign extended. The quotient is then added to the 
"double accumulator" which is then shifted left one place. 

Overflow occurs and the OVERFLOW FLIP FLOP is set 
if Ah, Al is greater in absolute magnitude than Mh, Ml, 
or if Mh, Ml equals zero, 

6. DOUBLE PRECISION NEGATE 

If the least significant word is zero the most significant 
word is two's complemented. Otherwise the least 
significant word is two's complemented and the most 
significant word is one's complemented. 
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N 



00000 
00001 
000C2 
00003 
00004 
00005 
00006 
000C7 
00010 



52 
01 
46 
51 
17 
46 
46 
46 
51 



00011 
00004 
01000 

ooooo 

00011 
00014 

oiooo 

00014 

ooooo 



00011 11717771 



1 

2 

3 

4 
5 
6 
7 
8 
9 
10 
11 



$EPM 



P8PD 


013400000 


SKB 


= -1 


BRU 


$ + 3,4 


CNA 




BRR 





ESR 


= -1 


XAB 




CNA 




XAB 




BKR 





END 





TlST 3 EGU 

2S CPMPLEMENT 

EXIT 

lb CCMPLEMENT 

23 COMPLEMENT 

EXIT 



oo 











1 $C?C P9PD 


013300000 


OOOGO 





37 


00014 


2 DFD STX 


TX 


OOOC1 





77 


40000 


3 


EAX 


*0 


000C2 


U 


35 


00013 


4 


STA 


Ah 


000C3 


CI 


36 


00012 


5 


STB 


AL 


00004 


2 


76 


00001 


6 


LLA 


1,2 


00005 


2 


75 


ooooo 


7 


LCB 


0,2 


oooee 


2 


46 


00000 


8 


RCH 


0,2 


C00G7 





67 


10060 


9 


N3B 


43 


00010 





46 


00600 


10 


XXA 




000! 1 


u 


46 


01000 


11 


CNA 




OOn 12 





46 


00 4 50 


12 


RCH 


0450 


00013 





62 


00012 


13 


XMA 


AL 


00014 





46 


00014 


14 


XAB 




00015 





62 


00013 


15 


XMA 


Ah 


00016 


2 


67 


OOOOO 


16 


LSH 


0,2 


00017 





66 


00001 


17 


RSH 


1 


^ 00020 





65 


00013 


18 


DIV 


Ah 


V 1 00021 


U 


35 


00016 


19 


STA 


Q 


*> 00022 


u 


46 


IOC 12 


2C 


BAG 




00023 





66 


00001 


21 


RSH 


1 


00024 





62 


00012 


22 


XMA 


AL 


00025 





66 


20002 


23 


RCY 


2 


00026 


G 


46 


01000 


24 


CNA 




00027 





64 


00016 


25 


MUL 


Q 


00030 





55 


00012 


26 


ADD 


AL 


00031 





65 


00013 


27 


DIV 


AH 


00032 


4 


64 


00071 


28 


MUL 


1Q22,4 


00033 





55 


00016 


29 


ADD 


Q 


00034 





67 


00001 


30 


LSH 


1 


00035 


u 


71 


00014 


31 


LDX 


TX 


00036 





51 


ooooo 


32 


BRR 













33 SEPM POPD 


013200000 


00037 





37 


00014 


34 DPM STX 


TX 


00040 





77 


40000 


35 


EAX 


*0 


0004 1 





35 


00013 


36 


STA 


AH 


00042 





46 


10012 


37 


BAC 




00043 





66 


20002 


38 


RCY 


2 



Mn 
ML 
Ci_X 



CAX,CXB,CBA 



SCALE AH,AL EQU MH,ML 
AVOID OVFLO ERROR 
AH,AL/MH 
SAVE QUOTIENT 

SCALE REMAINDER 
EXCHANGE Q AND ML 
SCALE ML RIGHT 2 BITS 

-P1L*G 

R - ML*Q 

R - ML*Q/MH 

SHIFT 22 PLACES 

ADD QUOTIENT 

SCALE RESULTS 

EXIT 



AL INTO A 






00044 
00045 
00046 
00047 
00050 
00C51 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 

00072 
00073 
00074 
00075 
00076 
00077 
001C0 
00101 

00102 
00103 
00104 
001G5 
00106 
00107 
00110 



2 64 00001 
35 00015 
2 76 00000 
06624002 
64 00013 
55 00015 
4 64 00071 
36 00015 
62 00013 
2 64 00001 
46 00014 
55 00015 
46 00014 
57 00013 
02 20001 
71 00014 
<J 73 00112 
52 00113 
U 51 00000 
4 51 00070 
4 00 00065 
00000002 



37 
77 
46 
54 
46 
56 
71 
51 

37 
77 
46 
55 
46 
57 
71 



00014 
40000 
0001 4 
00000 
00014 
00001 
00014 

ooooc 

00014 
40000 
00014 

00000 
00014 
00001 
00014 



39 




MUL 


1.2 


40 




STA 


R 


41 




LDA 


0.2 


42 




DATA 


06624002 


43 




MUL 


AH 


44 




ADD 


R 


45 




MUL 


1G22*4 


46 




STB 


R 


47 




XMA 


AH 


48 




MUL 


1.2 


49 




XAB 




50 




ADD 


R 


51 




XAB 




52 




ACC 


AH 


53 




E9M 


020001 


54 




LDX 


TX 


55 




SKG 


=040000000 


56 




SKB 


=-1 


57 




BRR 





58 




BRR 


6VFL©#4 


59 


SVFL8 


P£E 


$-3*4 


60 


1C22 


DATA 


02 


61 


SEPS 


PQPD 


013100000 


62 


DPS 


STX 


TX 


63 




EAX 


*0 


64 




XAB 




65 




SUB 


0.2 


66 




XAB 




67 




sue 


1.2 


68 




LDX 


TX 


69 




BRR 





70 


$CPA 


POPD 


013000000 


71 


DPA 


STX 


TX 


72 




EAX 


*0 


73 




XAB 




74 




ADD 


0.2 


75 




XAB 




76 




ADC 


1*2 


77 




LDX 


TX 



AL*MH 

R EQU AL*MH 

ML 

ML*AH 

ML*AH ♦ AL*MH 

SHIFT 22 PLACES 

RL 

EXCHANGE OH AND AH 

AH*MH EQU PH,PL 

RL + PL 

RH ♦ PH 



EXIT 

OVFLO EXIT 

SET GVFL8 AND EXIT 



AL - ML 

Ah - MH - CARRY 

EXIT 



AL + ML 

AH + MH * CARRY 



00111 



001 12 
00113 



51 00000 

00000012 

00000013 

00000014 

U0000015 

00000016 

00004002 

40000000 
77777777 



78 




6RR 





79 


AL 


EOU 


012 


80 


At- 


EQU 


013 


81 


TX 


EGU 


014 


82 


R 


EGU 


015 


83 


Q 


EQU 


016 


84 


B4002 


EQU 


04002 


85 




END 





EXIT 



LOGICAL RIGHT SHIFT 2 









1 


SLOP 


PQPD 


013600C00 




oonoo 


46 00040 


2 




CXB 






OOOCl 


77 40000 


3 




EAX 


*0 


N) 


00002 


2 76 D0001 


4 




LDA 


1.2 


Ul 


00003 


2 7t 00000 


5 




LDX 


0.2 


Z? 


00004 


46 00060 


6 




XXB 






00005 


51 00000 


7 
8 




BRR 

END 










1 


$S 


TD 


P9PD 


013700000 


oocco 


57 00014 


2 






STX 


TX 


C00C1 


77 40000 


3 






EAX 


*Q 


00002 


2 35 00001 


4 






STA 


1.2 


00003 


2 36 00000 


5 






STB 


0.2 


000C4 


71 00014 


6 






LDX 


TX 


000C5 


U 51 00000 


7 






BRR 







C0000014 


8 
9 


TX 




EGU 
END 


12 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203040-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 



SOURCE 
LANGUAGE: 

METHOD: 



Double Precision Multiply Programmed Operator - DPM 
Richard S. Resnick, SDS 
29 April 1963 

Any SDS 920/930 Computer 

Provides Double Precision Multiply (DPM) as a programmed 
operator. 

None 

Instructions and constants: 114 oct, 76 dec 

504 microseconds including programmed operator entry 
and exit. 

SYMBOL 

See Catalog No. 203022-B for description of USE and of 
METHOD. 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 20301 7-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 



SOURCE 
LANGUAGE: 

METHOD: 



Double Precision Subtract, Programmed Operator - DPS 
Richard S. Resnick, SDS 
5 March 1963 

Any SDS 920/930 Computer 

Provides Double Precision Subtract (DPS) as a programmed 
operator. 



None 



Instructions and constants: 114 oct, 76 dec 

160 microseconds including programmed operator entry 
and exit. 



SYMBOL 

See Catalog No. 203022-B for description of USE and 
of METHOD. 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 20301 6-B 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE:" 

TIMING: 



SOURCE 
LANGUAGE: 

METHOD: 



Double Precision Add, Programmed Operator - DPA 
Richard S. Resnick 
6 March 1963 

Any SDS 920/930 Computer 

Provides Double Precision Add (DPA) as a programmed 
operator. 



None 



Instructions and constants: 114 oct, 76 dec 

160 microseconds including programmed operator entry 
and exit. 



SYMBOL 



See Catalog No. 203022-B for description of METHOD, 
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SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 203020B 



IDENTIFICATION: 



AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 



USE: 



1. 



Load and Store Triple Precision Programmed Operator 
Package - LTP, STP 

Richard S. Resnick, SDS 

6 March 1963 



Any SDS 920/930 Computer 

Provides Load Triple Precision and Store Triple Precision 
Programmed Operators. 



None 



Assembled as separate subroutines. LTP: 10 oct, 8 dec 

STP: 11 oct, 9 dec 



STP - 216 (jtsec 



2. 



LTP - 160 usee 

SYMBOL 
FORMAT 



The triple precision operand is stored in three consecutive 
memory locations in the following manner: 

The least significant word in M 

The next least significant word in M + 1 

The most significant word in M + 2 

The triple precision accumulator occupies the A register, the 
B register and location 2. The least significant word is in B, 
the next least is in A, and the most significant word is in 
location 2. 

FUNCTION 

Indexing and indirect addressing are possible in both instructions 
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USE: (Cont. ) LOAD, TRIPLE PRECISION LTP 

The triple precision operand is loaded into the triple 
precision accumulator. The contents of M into the B 
register, the contents of M+l into the A register, and 
the contents of M+2 into location 2. 

Registers Affected: A, B, Location 2 Timing: 20 

STORE, TRIPLE PRECISION STP 

The contents of the triple precision accumulator are 
stored in the triple precision operand. The contents 
of B into M, A into M+l, and location 2 into M+2. 
A, B and location 2 are unchanged. 

Registers Affected: M, M+l, M+2 Timing: 27 

METHOD: Not applicable. 
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1 


SLIP 


P9PD 


016600000 


00000 


46 00200 


2 


LTP 


CXA 




000C1 


77 40000 


3 




EAX 


*0 


00002 


2 75 00002 


4 




LEB 


2,2 


00003 


36 00002 


5 




STB 


2 


00004 


2 75 00000 


6 




LCB 


0*2 


00005 


2 71 00001 


7 




LCX 


1.2 


00006 


46 00600 


8 




XXA 




000C7 


51 00000 


9 
10 




BRR 
END 
























1 

CO 










1 


SS1P 


POPD 


016700000 




00000 





37 


00012 


2 


STP 


STX 


TX 




000C1 





77 


40000 


3 




EAX 


*0 




00002 


2 


35 


00001 


4 




STA 


1.2 




00003 


2 


36 


00000 


5 




STB 


0.2 




00004 





76 


00002 


6 




LDA 


2 




00CC5 


2 


35 


00002 


7 




STA 


2.2 




00006 


2 


76 


00001 


8 




LDA 


1.2 




D00C7 





71 


00012 


9 




LDX 


TX 




00010 





51 


00000 


10 




BRR 









00000012 


11 


TX 


EQU 


012 












12 




E«ND 
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IDENTIFICATION: 



AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 



TIMING: 

SOURCE 
LANGUAGE: 

USE: 1. 



SDS 900 SERIES PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 2030213 



Load and Store Quadruple Precision Programmed Operator 
Package - LQP, STQ 

Richard S. Re snick, SDS 
7 March 19&3 



Any SDS 920/930 Computer 

Provides Load Quadruple Precision and Store Quadruple 
Precision Programmed Operators. 



None 

Assembled as two separate subroutines. LQP: 12 oct, 10 dec 

STQ: 13 oct, .11 dec 



LQP - 200 usee 



SQP - 256 jjisec 



SYMBOL 

FORMAT 

The quadruple precision operand is stored in four consecutive 
memory locations in the following manner: 

The least significant word in M. 

The next least significant word in M+l. 

The next least significant word in M+2. 

The most significant word in M+3. 

The quadruple precision accumulator occupies the A register, 
the B register, location 2 and location 3. The least significant 
word is in B, the next least is in A, the next in location 2, and 
the most significant word is in location 3. 



27-1 



Page 2 of 2 Catalog No. 203021 B 

USE: (Cont. ) 2. FUNCTION 

Indexing and indirect addressing are possible in both 
instructions. 

LOAD, QUADRUPLE PRECISION LQP 

The quadruple precision operand is loaded in to the quadruple 
precision accumulator. The contents of M into the B register, 
the contents of M+l into the A register, the contents of M+2 
into location 2, and the contents of M+3 into location 3. 

Registers Affected: A, B, location 2, location 3 

Timing: 25 

STORE, QUADRUPLE PRECISION STQ 

7Jhe contents of the quadruple precision accumulator are 
stored in the quadruple precision operand. The contents 
of B into M, A into M+l, location 2 into M+2, and location 3 
into M+3. A, B, location 2 and location 3 are unchanged. 

Registers Affected: M, M+l, M+2, M+3 Timing: 32 

METHOD: Not applicable 
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1 


$LQP 


P8PD 


016600000 


00000 





46 


00040 


2 


LCP 


CX8 




00001 





77 


40000 


3 




EAX 


*0 


00002 


2 


76 


00003 


4 




LEA 


3.2 


00003 





35 


00003 


5 




STA 


3 


000C4 


2 


76 


00002 


6 




LEA 


2,2 


0OOC5 





35 


00002 


7 




STA 


2 


900C6 


2 


76 


00001 


8 




LEA 


1.2 


000C7 


2 


71 


00000 


9 




LEX 


0*2 


00010 


U 


46 


00060 


10 




XX6 




0001 1 


u 


51 


00000 


11 
12 




BRR 
END 














w OO^CO 





37 


00012 


00001 





77 


40000 


00002 


2 


35 


00001 


000C3 


2 


36 


uoooo 


000C4 





76 


00002 


00005 


2 


35 


00002 


00006 





76 


00003 


00007 


2 


35 


00003 


00010 


2 


76 


00001 


0001 1 





71 


00012 


0001? 





51 


00000 




U0C00012 



1 


SSFG 


P9PD 


016700000 


2 


STy 


STX 


TX 


3 




EAX 


*0 


4 




STA 


1*2 


5 




STB 


0,2 


6 




LBA 


2 


7 




STA 


2,2 


ft 




LEA 


3 


9 




STA 


3,2 


1C 




LEA 


1,2 


11 




LEX 


TX 


12 




6XR 





13 


TX 


£Q\J 


012 


14 




END 





